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PREFACE 


If you hang around people with Apple computers, you pick up all kinds of 
nifty tips. Both of us hang around a lot and have amassed an amazing 
amount of tips from fellow users and our own experiments. Many of the 
tips in this book have been published separately in the Tip Books that 
accompany Beagle Bros software. Users from all over the country have 
used these little books to look up little tips (or a lot of tips in little places, 
or big tips . . . never mind). What's more, they've written in (mostly on 
word processors) with their discoveries in the form of tips. For the most 
part these tips are obviously useful, ingenious, and valuable. However, a 
lot of them are exotic, weird, and apparently useless. The obviously useful 
tips can be put to immediate use, and you'll be better off in a way you can 
appreciate right off the bat. The other ones, however, can actually be more 
useful in the long run. For example, one of my favorite CALLs is —1401. 
Now, as just about nobody knows (or cares), you can CALL —1401 to boot 
your system instead of the boring PR#6 or even duller method of turning 
on your computer with a DOS disk in drive #1. The question is why? 
What actually happens when you CALL —1401? As anyone who reads the 
Apple Reference Manual can tell you, the boot location is -1370 and not 
-1401. Nevertheless, you get a really clean boot with a CALL —1401. This 
kind of mystery can lead you by the nose into your Apple to learn more 
about why it does what it does (Don't tell me why if you know. I'd rather 
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find out myself.) So you see, the not-so-obvious tips can really set your 
sail to learning more about your Apple. 

Thus, we have collected exactly two kinds of tips. Those that you can 
put to work and those that make you wonder. With our wheelbarrow full 
of tips, we decided that it would be a good idea to get organized (or sorted 
out, at least) and to arrange everything into the nineteen chapters and 
umpteen appendixes that make up this book. In that way, when you want a 
tip on DOS, you don’t have to wade through all the tips on text, graphics, 
and all the other tips that have absolutely no bearing on DOS. (Besides, 
the wheelbarrow gets in the way of the monitor.) 

In addition to the exactly two kinds of tips, there are a lot of program 
examples to show you how to do things with the tips. These illustrate a 
point made in the tip, show you how to do something really neat, provide 
a handy algorithm, or make you wonder. 

There’s more, though. A few years ago, Beagle Bros started a two- 
liner contest to see who could do the most in only two lines of a BASIC 
program. The creations were astounding. Not only were the two liners 
good little programs, they did it in two lines! These provide a wealth of 
tight algorithms and creative talent. Since fewer lines will speed up a 
program, these two liners can really teach you a lot about BASIC program- 
ming. (Besides, with only two lines, you don’t have to spend your 
vacations keying them in.) 

Finally, anyone who has done much programming finds a good chart 
worth a thousand SYNTAX ERRORs. Since Beagle Bros has some of the 
best charts in the business (this side of The Apple Almanac, at least), we 
thought it’d be a good idea to put them in the appendixes. You can tape 
the book to your wall and have instant access to your favorite chart. Of 
course, this is our get-rich-quick scheme, since you'll have to buy a lot of 
books to see all your charts at once. (I told you it wouldn’t work, Bert.) 

But this isn’t just a rehash of the old Tip Books and charts. Bill was 
the editor of the San Diego Apple Corps’ newsletter, The Sandy Apple 
Press, and picked up plenty of tips from Apple users while trying to figure 
out how to fill up the monthly issue. (The “Чейег” grew to fifty pages 
before Bill had enough sense to let someone else take over the editorship.) 
In addition, he wrote The Elementary Apple and coauthored with Eric 
Goez, The Apple Almanac. These two books led to various discoveries that 
didn’t quite fit into either work and have been sitting on file awaiting a 
suitable home. These tips have been added to Bert’s collection. 


PREFACE xi 


As the Apple changed from the Apple II to the II-- to the //e and the 
//c, earlier tips had to be reconsidered. Not only did the machines change, 
but DOS did as well, evolving from 3.1 to ProDOS. Sometimes a tip for 
one machine may not be relevant to another. For example, if you dribble 
in your keyboard on your II, II +, or //e, you may get to see your chips fry 
as the liquid mingles with the electric circuits. This just isn't true on the //c 
since Apple, Inc., has made a dribble-resistant keyboard. Of course, Bert 
warned users of this disaster long ago and provided a surefire cure. (See 
the later section **Don't Drink and Compute.’’) After studying the design 
suggested by Bert, Apple decided to follow the tip and made the //c 
keyboard so that the liquid was rerouted to your lap instead of the circuits. 
(Well, maybe Apple, Inc. didn't get the idea from Bert, but the tip did 
come before the //c.) In order to make The Big Tip Book useful for all 
Apple Ilw users (the w stands for ‘‘whatever’’) and not just the old or 
new ones, we have fixed up and rewritten the tips to keep up with 
modern times. 

To get you going, the first tip is іп using The Big Tip Book. After 
taking all of our combined tips out of the wheelbarrow, we put them in a 
loose-leaf binder arranged by chapter. Now it was a lot faster finding 
things in the binder than in the wheelbarrow, but since there were so many 
tips, often-used ones (especially those involving PEEKs, POKEs, and CALLs 
nobody remembers exactly), a quick lookup became a long lookup. So for 
the often-used but often-forgotten tip, we have the following tip. The 3M 
Company makes these little paper things called *'Post-its." They have 
sticky stuff on them so that you can plaster a little note on paper, and it 
stays put until you pull it off. The stickum is nonbinding, so your tip book 
will not get ripped if you remove the Post-it. When you want to mark 
something, instead of dog-earing the page, put a little Post-it on the page 
with a note to yourself. For example, who can remember that you should 
use POKE -16368,0 to clear the keyboard buffer after using a WAIT 
-16384,1282 We can't. So instead of wading through all the tips in the 
keyboard section (or was it the text section?), just mark the Post-it with 
something like “УУАІТ HERE” and stick it on the appropriate page so you 
can see at a glance where your tip is located. Then you can look it up 
quickly. 


CHAPTER 1 


ENVIRONMENT 


SLOT AND DRIVE 


If you have more than two disk drives, label them with black Dymo-type 
labels (‘‘S6,D1’’, **S6,D2"', ‘‘S5,D1’’, etc.) so you can tell at a glance 
which drive goes with which slot. 


WHICH PADDLE? 


Also, identify your paddles with ‘‘-0-’’ and “-1-” Dymo labels. You can 
tell which paddle is which with the following program. RUN it and mess 
with your paddles. . 


10 HOME :BUTTUN - - 16287 

20 FOR X = 0 TO 1: NORMAL 

30 IF PEEK (X + BUTTUND > 127 THEN INVERSE 
40 VTAB 10: HTAB 1 + 20 * X 

50 PRINT “PADDLE '";X;':'5: NORMAL 


1 
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60 PRINT " "; PDL CX); SPCC 2) 
70 NEXT X: GOTO 20 


The word ‘‘PADDLE”’ should light up when the appropriate button is 
pressed, and you should get values from 0 to 255 when you turn the 
knobs. If you don't, you can clean the contacts inside (carefully) with 
some electrical contact cleaner. The paddles are undoubtedly the weakest 
Apple hardware link. Good old Rob and Brent at the Apple store replaced 
my original thumb-killer paddle buttons with nice fat red ones they bought 
from Radio Shack (what?). I highly recommend the conversion to all 
serious paddlers. 


SPACE ERASERS 


Notice the SPC(2) after the PDL value in line 60. This erases trailing digits 
when the values drop from three to two or from two to one digit. Try the 
program with and without the SPC(2) and you'll see. 


A MOUSE AND NO PADDLES? 


Use the Dymo labeler to name your mouse ‘‘Ralph.”’ 


TIP YOUR COMPUTER AND DISKS 


Before you put your Dymo away, why not stick your favorite tip above 
your keyboard or on your disk drive? CALL 1002 fits nicely on your disk 
drive and will remind you to call that number when you blow your DOS. 
Likewise 67 68 AF BO above your keyboard will help you remember the 
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monitor addresses for the pointers to the beginning and ending addresses of 
your BASIC program in memory. 


PADDLE PANEL 


Ever think of disassembling and mounting your paddles on a control panel, 
like so? 


Kind of like electric-train transformers; all of the buttons where you want 
them. Uncle Louie mounted his paddles on both sides of his Apple to 
make some nifty Raster Blaster flippers. 


DISK DRIVE PLACEMENT 


To find out on which side of your monitor or TV set to place your disk 
drives, use a radio. Turn on your radio and place it on the left and right 
sides of your monitor or TV. The side that causes interference on your 
screen is not the side to place your disk drives. 


UNSTABLE LABELS 


We suspect that most disks are made of Teflon just to keep labels and 
write-protect tabs from sticking. We've had better luck with certain ‘‘рег- 
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manent'' pressure sensitive labels (not ‘‘removable’’). Visit your statio- 
nery store. 


VISI-LABELS 


You can make пісе 12” x 2" disk labels from business-card-weight card- 
board, like so... . 


к 14" 


Now you can see what disk is in each of your drives. 


“ 


EASY INSERT 


If you use three-ring vinyl inserts to store your disks, you may think you 
have to remove each disk from its protective sleeve for it to fit in the page 
pocket. Have you tried inserting the disk plus sleeve in the pocket sideways? 
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It works and gives your disks double protection. Now you know what to 
do with all of those extra disk sleeves! 


MONITOR BLUES 


They say (and I tend to believe them) that a black monitor screen with 
white text is hard on your eyes, if not your brain. A better choice is one of 
the ““ртееп screen’’ monitors; some claim that amber is even better (espe- 
cially under fluorescent light). If you do a lot of VisiCalc-ing or word 
processing, an easy-eye monitor may be well worth the investment. The 
only thing worse than a black-and-white monitor (for the eyes, that is) is a 
TV, particularly a color TV. 
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ACME PRINTER STAND 


Any printer. 

beards 

ТЕ 

Legal-SiZe 
wooden 

Tray holds 

printer paper: 


Jnn TT ее. 
MM VETT фл 
ЕСЕСІ СЫ LA VE EUR 


Uncle Louie built this dandy printer stand for our printer. Maybe it will 
work for yours. 


PROGRAM LIST STANDS 


If you have ever tried to key in programs from a book, magazine, 
newsletter, or just about any other hardcopy listing, you've noticed that 
they don't stand up too well by themselves. In most office-supply stores 
you can find stands used by secretaries to hold documents they copy. 
These work much better. For those of you on a budget, the following stand 
works just fine, too. 
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DISK RACK 


Tape or glue a bunch of disk sleeves together and mount them on a board 
for a handy disk rack. This way, all of your most commonly used disks are 
always findable and reachable! 
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NO-TEAR SLEEVES! 


Next to creating shapes from scratch, one of the hardest things to do is tear 
up à disk sleeve! Try it sometime. Certain ones are made of special no-tear 
paper. Extensive research by an independent testing lab shows that no one 
knows why, although dust prevention is undoubtedly the answer. 


TWO-SIDED DISKS 


No problem. Just punch a write-protect notch with a 1⁄4” punch directly 
opposite the existing notch. (Put two disks front to back and pencil in the 
spot for the notch.) Then INIT the new side of the disk. 

Warning: Some disks have flaws on their wrong sides. 

But: Most don't. 


DISK BOXES 


Here's another tasty way to store your disks. Use the ten-disk boxes with 
the lids removed and store your disks sorted by category. Labels on the 
sides of the boxes finish things off nicely. 
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AN APPLEBOARD 


If you're using a 15" or bigger TV monitor with your Apple, you will 
probably agree with us that placing it on top of the computer puts it much 
too close to your eyes. (If only your arms were longer. . . .) And your 
desk isn't deep enough to leave room for the TV behind the Apple. And 
it's a pain trying to type while you look sideways, right? 

Okay, cut a piece of 5” plywood, like so. 


That way, your Apple can overhang the front of your desk, and you are far 
enough from your monitor to prevent TV eyeballs. The whole unit can be 
pivoted or slid out of the way when not in use. 


DON'T DRINK AND COMPUTE! 
(UNLESS YOU HAVE A //c) 


Computers provide great party entertainment, but beware of liquid what- 
ever getting onto and into your keyboard (not to mention cigarette ashes, 
toothpicks, cracker crumbs, cat hair . . .). 
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A Solution: Obtain a 15" x 18" piece of 4” clear plastic and cover your 
keyboard. 


I5" x18" x a" Clear Plastic 


2"x [2" x 5" Wood Block 
or Box (heavy!) 


Then enjoy the party! Of course, the Apple //c users have a liquidproof 
keyboard already. 


RESET PROTECTION! 


In the olden days (computer terminology for a couple of years ago), a V4" 
error when hitting RETURN could cause you to hit Reset and kill a 
program. The new Apples require a two-handed* Control-Reset. Hooray! 
A terrible flaw is eliminated! For those of us with our ancient Apples, 
here are some solutions: 


1. Ask your Apple dealer. There are several hardware Reset protec- 
tors for sale, including a dealie that requires two Reset hits within 
a second and a Reset switch that attaches to the back of your 
Apple. (Go to an old Apple dealer.) 

2. Make your own Reset protector. 


*Our neighbor, Kareem Abdul-Murphy, can do a Control-Reset with one hand. 
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0.5 „РАТЕМТ 3:276.732.767.327.673.276.732,767 | 


Let's forgive Apple for one B-L-U-N-D-E-R! 


MULTI-PLUG 


Tired of having to turn on your Apple, your monitor, and your printer 
every time you power up? Why not buy a multiple outlet box with a 
powerswitch? Then you can set everything into action with one switch. 
You won't have to remember to turn everything off either. One switch 
does it all! 


PRINTER 


APP. CRT 
= a One Aurich АШ / 


22 Ж === >. ч 2 Aes È 4 
САГ уг, 


You can do all of this and get a fan to boot with a device that attaches to 
the side of your Apple. They come under a lot of names, but the one we 
know best is called System Saver made by Kensington Microware. 


12 THE BIG TIP BOOK FOR THE APPLE II SERIES 


AN EFFICIENT SOFTWARE FILE 


CLIP OFF THESE CORNERS 
AND YOUR WRITE-PROTECT 
NOTCHES WON'T GET 


CAUGHT. 


K & M Co. makes a nice three-ring binder (#ES 311-1) that stands up 
when open. Use it with some disk-holder inserts and you’ve got a super 
disk file! 


THINGS THAT GOSUB IN THE NIGHT 


Around 2:00 A.M. a Control-G can sound like an air-raid siren. And 
sometimes, even on Saturday afternoon, a little silence is nice. It’s a 
simple thing to put a switch on your Apple speaker. Just cut one of the 
speaker wires and run new wires to a toggle switch. 


ФЭ < SPEAKER 


ONE WIRE 
рр SWITCH. 


ПИЛИ 
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Certain types of switches will attach through the slots in the back of 
the Apple, and make hole drilling (gasp!) unnecessary. Of course, on the 
Apple //c, things are different. 


VARIABLE VOLUME 


If you like arcade games with lots of sound as your spaceship gobbles 
aliens, your puny Apple speaker's squeak may not do the job. (Or if it's 
too loud it may overdo the job.) A surefire solution to that problem is to 
cut the wire from your minispeaker and attach to a big speaker with 
volume control. You can splice a longer wire onto the one from your 
speaker to its plug (see preceding diagram) to take it out the back of your 
Apple. The sound can be turned up for your shoot-outs and then down 
while everyone else in the world sleeps. 


GRAND PRIX APPLE 


Peter Lake, from somewhere-out-there, called us here at the Beagle Build- 
ing to report on his customized Apple environment. It seems Peter is a 
professional writer and uses an Apple as a word processor all day, every 
day. So he mounted his system on a drawing board tilted about 15 degrees. 
To level his monitor, he built a wedge-shaped mount that rests on his 
Apple. He painted his Apple's case black to reduce glare (I never noticed 
the problem) and, inspired by one of our tips, glued sequins to his K and D 
keys so he can feel his fingers' positions on the keys without looking. Now 
the best part: he sits in a special race-car seat, headrest and all, leans back, 
and types away. I asked him if he wears a seat belt; he said, ‘‘Only when I 
type fast.” 
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AUDIO RADIANCE 


Take a portable radio that's turned on and place it against one side of your 
Apple monitor. Now try the other side. You'll probably notice that one 
side causes more interference than the other. If I were you, Га keep my 
disks away from that side. 


CHAPTER 2 


KEYBOARD 


WATCH YOUR 3's AND 2's 


Don't fret if you have to look at the keys when you type numbers. 
Mistyped numbers are the source of some of the toughest program- 
ming mistakes to find. I've found it pays to slow your typing down about 
two beats when numbers come up, and it doesn't hurt to watch what 
you're doing either. 


ON ANCIENT APPLES THERE'S MORE THAN 
ONE WAY TO... 


There are ways to type Apple's three keyless characters: the backslash, the 
left square bracket, and the underscore. Here's one of them: try pushing 
any three or four keys at the same time. It's difficult to predict what will 
appear on the screen. If you have a lowercase adapter (which is on all the 
//e's and //c's), you can often produce lowercase letters by pressing two 


15 
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keys. With this in mind, we set out to find our elusive keyless characters, 
figuring that some combination of other keys would produce what we 
wanted. Sure enough. Simultaneously press the SHIFT, U, and / keys and 
hold them down while you type a Y, then an H, and then a J. There they 
are; the three elusive characters, each with a normal character thrown in. 
Kind of strange, huh? You can make them usable by typing these charac- 
ters as described here, and then deleting the characters you don't want by 
normal editing methods. 


MISSING-CHARACTER DEPARTMENT 


When they designed the Apple II and П + keyboard, they forgot to print 
the right bracket above the M. If you want to type a right bracket, type a 
SHIFT-M. (Apple, Inc., read this tip and fixed up the //e and //c so you 
don't have to go through this.) 


HOW TO GET RICH 


Market replacement Apple K and D key caps with little lumps on them. 
Your fingers can then feel their way to the correct keys. The Apple //e and 
//c use this method, and it works. 


&, @, ETC. 


All right, if you’re going to be serious about this computer stuff, it’s time 
you got your character names straight. Here’s the rundown; there will be a 
quiz on Monday. 
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This is called an ampersand. 
This is called an at sign. 

This is called an asterisk. 

This is called a square bracket. 
This is called a parenthesis. 

This is called a pound sign. 

This is called a little pointy thing. 


UJ» 7*9 


PROGRAMMING THE RESET KEY 


There are a couple of POKEs you can do into DOS that will make Reset 
act something like a Control-C. That makes it trappable by ONERR 
GOTO, and thereby makes it programmable to do anything you want it to. 
The following program demonstrates. 

Wait a minute! Be careful out there Hill Streeters. If you make a typo, 
you could really foul things up. After you type it in, SAVE it, then RUN 
it. Try to stop it with a Control-C or a Reset. You can't. You have to let it 
run its course. The two POKES at the beginning of the program even 
program your electric plug so you can't disconnect your Apple (just 
kidding). 


20 ONERR GOTO 1000 

25 POKE 40286,35 : POKE 40287, 216 

30 Х = Х + 1 

40 PRINT ХУ" "s; : IF X < 400 THEN 30 

50 POKE 40286,60 : POKE 40287,212 : END 

1000 PRINT : PRINT "START COUNTING..."; : X 
= 0 : GOTO 30 


Line 1000 could just as easily contain a NEW or LIST or RUN or DEL 
0,999 or PRINT CHR$(4); ‘‘PR#6’’ or PRINT CHR$(4); “‘CATALOG’’. 


Here's a set of POKEs that will make the Reset key boot when it's 
pressed: 


FOR Х=1011 TO 1015 : POKE Х,0 : NEXT 
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Or: 
*3F3: 00 00 00 00 00 


By the way, Reset resets almost everything, but it won't reset SPEED 
to its normal 255 value. 


RESET TO THE MONITOR! 


We know a guy who chucked his Autostart ROM in the garbage disposal 
just because it makes Reset return him to BASIC instead of the monitor. 
He should have typed: 


CALL -151 
*3F2: 69 FF SA 


Make the 5A a 51 and Reset will reboot! (Normal is *3F2: 00 97 32.) 


N,S,W, OR E? 


To move a figure up, down, left, or right on an Apple II+, the 0, D, L, 
and R arrows or N, S, W, and E keys are often used, but they are a real 
pain for nontypers. 1, М, J, and К or some similar grouping isn't much 
better. We prefer this easy-to-remember, uncrowded set: 


UP: 
^ (N) key 


LEFT: < (,) ог — (optional) 
RIGHT: > (.) or > (optional) 


DOWN: 
Space Bar 
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Five of these six keys are already marked with ‘‘arrows’’ (mark your space 
bar too, if you want), and all are conveniently spaced for two-handed use. 


ESCAPE B ? 


Everybody who ever made a SYNTAX ERROR knows how to hit Escape 
and climb up a wall of line numbers to edit. The cursor always seems to go 
up the second digit of the line numbers, and you have to hit J to get it over 
the first digit and then remember to hit the space bar to get out of the edit 
mode, and then you can run the cursor over the program to change your 
comma to a colon. To save exactly one stroke, instead of hitting J, hit B. 
The cursor pops back exactly one space and takes you out of the editor. (If 
you have the newfangled Apples with the up and down keys, you won't 
appreciate this.) 


MYSTERY CHARACTERS ON //e AND //c 


To impress your girlfriend or boyfriend with inverse lowercase on your //e 
or //c, POKE 49167,0. Now POKE your character set into the screen. 
If you don't want to do that and break your screen, the following program 
does it for you. 


10 TEXT : HOME 

20 FOR Х=0 TO 255 

30 POKE Х+1024,Х 

40 NEXT X 

50 FOR P=1 TO 2000 : NEXT P 

60 PRINT CHR$C7)2 :РОКЕ 49167,0 


Watch things change when you hear the bell. If you want to get it back to 
normal, POKE 49166,0. 
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INCREASE YOUR TYPING SPEED ON THE //c 


You probably don't realize this, but the QWERTY keyboard was designed 
to slow typists down. The old machines (I think they called them typewrit- 
ers) just couldn't keep up with Miss Nerty's speed typists. This embar- 
rassed the typewriters and clogged their keys; so they made the QWERTY 
keyboards to tangle up fingers. 

With word processors came type-ahead buffers that could keep up 
with Attila the Typist, so they decided to put in the Dvorak keyboard that 
will allow you to type 40 percent (some claim) faster. On the Apple //c, 
you can have either the QWERTY or the Dvorak by punching a little 
toggle switch on top of the computer with a pen. All you have to do is 
remember which keyboard you have going since the keys are still marked 
in QWERTY. If you switch back and forth, you may get lock finger. 


CHAPTER 3 


MEMORY 


STRUCTURE 


SCREEN SHIFTER 


This program performs a fast, simple memory move from Applesoft, 
similar to the one on the PEEKs and POKEs chart. RUN it and press the 
left arrow a few times until any character other than a space is in the 
upper-left corner of the screen. Then press the right arrow! 


10 POKE 768,216: POKE 769,160: POKE 770,0: 
POKE 771,76: POKE 772,44: POKE 773,254: 
LIST : LIST 

20 НТАВ 1: PRINT "<- ->:4;: GET A$:ST = 
1024:EN = 2046 

30 DEST = 1024 + (А$ = CHR$ C212) - CAS 
CHR$ (8)): GOSUB 100: GOTO 20 

100 I = INT (ST / 256): POKE 60,ST - 256 ж 
I: POKE 61,1 
Г = INT CEN / 256): POKE 62,EN - 256 ж 
I: POKE 63,I 

120 I = INT CDEST / 256): POKE 66,DEST - 
256 * I: POKE 67,1: CALL 768: RETURN 


110 


The left arrow moves the text screen memory down one byte. The right 
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arrow moves it up. Due to the nature of this memory move, the upward 
move copies the value of the first byte (VTAB 1, HTAB 1) all the way 
through the screen! 

Try pressing the right arrow when a character is in the upper-left 
corner of the screen. 


SCREEN FILLER 


This program works like the preceding one. Its task is to instantly fill the 
screen with any character you print in line 10. 


5 POKE 768,216: POKE 769,160: РОКЕ 770,0: 
POKE 771,76: POKE 772,44: POKE 773,254 

10 FOR X = 1 TO 12: VTAB 1: PRINT МІР? 
С"; -+*@*+-:",Х,1) 

20 РОКЕ 60,0: РОКЕ 61,4: РОКЕ 62,254: РОКЕ 
63,7: РОКЕ 66,1: РОКЕ 67,4: CALL 768: 
NEXT : RUN 


SHIFTY PICTURES 


This little program does tricks with your hi-res screen by shifting memory. 
First, RUN B.B. LOGO from the DOS BOSS disk or BLOAD some lesser 
hi-res effort. Enter the monitor with a CALL -151, and type: 


*2000<2005.3FFFM «RETURN»? 
*2000«2010.3FFFM «RETURN? 
*2000«2025.3FFFM «RETURN? 


These commands tell the Apple to move memory from the address range on 
the right to the range starting with the address on the left. Substitute your 
own number after the '*«"'. Fun, huh? 
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AHHH, NOW JUST A MINUTE... 


Enter the 
does A$ 


following program in its entirety exactly as shown. First, why 
appear three different ways? Second, what happened to the 


“<>” the second time A$ was printed? 


10 


15 
20 
2S 
30 
35 
40 
45 
50 
55 
60 


Everyone 
But what 


YOUR 


A$ = "1234567890ABCDEFGHI JKLMNOPQGRSTUVWX 


Y2?*«»s$5&x" 
TEXT 

HOME 

POKE 32,2 
PRINT A$ 
VTAB 4 

PRINT A$ 
TEXT 

VTAB 7 

PRINT A$ 
LIST 

knows why the “<>” disappears. It’s the Jimmy Hoffa effect. 


about that first A$? 


BASIC PROGRAM AT WORK 


Let’s take a look at a very small program. Type this in and follow along. 


1 
2 
100 
100 


Mos 


REM COUNT 
FOR I = 1 TO 10 
PRINT I : NEXT 

0 PRINT "END" : END 


t Applesoft programs start at 2049 ($801). To find the end of 


a program— 


PRI 


NT PEEK (175) + PEEKC176) * 256 


24 


THE BIG TIP BOOK FOR THE APPLE II SERIES 


The longer your program, the higher this number will be. In this case, we 
get 2097, or hex $831. Now, let's look at the entire program in the 
monitor, but listing just before and just after the start and end points: 


CALL 


-151 
*800.832 «RETURN» 


«RETURN» 


You will now see something like: 


800- 
808- 
810- 
818- 
820- 
828- 
830- 


00 
55 
81 
e 1 
00 
4E 
04 


0C 
4E 
49 
08 
2E 
44 
4E 


08 
54 
DO 
64 
08 
22 
44 


01 00 Be 43 4F 
00 18 08 02 00 
31 C1 31 30 00 
00 BA 49 3A 82 
E8 03 BA 22 45 
3A 80 00 00 00 


Each two-digit hex number represents part of your program: a line 
number, character, or command token. Let’s take a look at each one. 


Location 
800 
801-802 


803-804 
805 


806-80A 


80C-80D 


80E-80F 
810 
811 
812 
813 
814 


Value 


00 


ОС 08 


01 00 


B2 


43 4F 55 
4E 54 00 


18 08 


There is always a zero before the start of a program. 
These two numbers tell us that the next program line 
starts at location $080C (Apple's two-byte hex num- 
bers are always backward in this strange form). 

This is the first line number, 1 (0001). 

This is the symbol or token for the word “КЕМ.” 
Each word Applesoft knows has a token number. 
These five numbers are the ASCII values for the char- 
acters C-O-U-N-T. A zero token means end of line, so 
line 1 is finished. 

This is the start of the next program line, the location 
that was referred to up in 801. The values 18 and 08 
tell us that the next program line starts at $818. 

Line number 2 ($0002). 

Token for FOR. 

Character /. 

Token for =. 

Character 1. 

Token for TO. 


MEMORY STRUCTURE 25 


Location Value 

815-816 31 30 Characters 1 and 0. Applesoft handles numbers in a 
program as words, spelling them out digit by digit. 

817 00 End of line. 

818-819 21 08 Next line starts at $821. 

81A-81B 64 00 Line number 100 ($0064). 

81C BA Token for PRINT. 

81D 49 Character /. 

8IE 3A Character : . 

81Е 82 Token юг NEXT. 

820 00 End of line. 

821-822 2E 08 Next line starts at $82E. 

823-824 E8 03 Line number 1000 ($3E8). 

825 BA Token for PRINT. 

826 22 Quote mark. 

827-829 45 4E 44 Characters E, N, and D. 

82A 22 Quote mark. 

82B 3A Character :. 

82C 80 Token for END. 

82D 00 End of line. 

82E-82F 00 00 Two zeros as at this point mean end of program. 


830-832 222222 Could be part of old program. 


TAKING OUT THE GARBAGE 


Occasionally, a program will be zapped by mysterious forces and become 
inoperable. In the listing, you will find illegal line numbers or nonsense 
statements, like “СОГОК- GOSUB HPLOT.’’ What has probably hap- 
pened is that one byte has been changed in a line number or /ine location 
number. If the latter is true, your program will jump to wherever it’s told, 
which is now some random place in memory. The numbers it finds there 
are interpreted as tokens, and thus the garbage. Use line search to find the 
memory location of the garbaged line and/or the last good line in the 
program. Check the pair of numbers just before each line number. Each 
one should point to a location just after a 00 (the end of the current line). 
When you find an incorrect number, POKE in a correct one. For example, 
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to POKE a 100 ($64) into location 2049 ($801), type POKE 2049,100, or 
enter the monitor with a CALL -151 and type 801:64. 


APPLESOFT TOKENS 


Hex Dec Chr Hex Dec Chr Hex Dec Chr 
$00 0 cQ МЕ 31 cL $3E 62 > 
$01 1 cA $20 32 sp $3F 63 ? 
$02 2 cB $21 33 ! $40 64 @ 
$03 3 cC $22 34 ” $41 65 A 
$04 4 cD $23 35 # $42 66 B 
$05 5 cE $24 36 $ $43 67 C 
$06 6 cF $25 37 % $44 68 D 
$07 7 cG $26 38 « $45 69 E 
$08 8 cH $27 39’ $46 70 F 
$09 9 cl $28 40 ( $47 71 G 
$0А 10 cJ $29 41 ) $48 72 H 
$0B 11 cK $2A 42 * $49 73 I 
$0C 12 cL $2B 43 + $4A 74 J 
$0D 13 cM $2C 44, $4B 75 K 
$0E 14 cN $2D 45 - $4C 76 L 
$0F 15 cO $2Е 46. $40 77 M 
$10 16 cP $2F 47 / $4Е 78 М 
$11 17 cQ $30 48 0 $4Е 79 O 
$12 18 cR $31 49 I $50 80 P 
$13 19 cS $32 50 2 $51 81 О 
$14 20 «Т $33 51 3 $52 82 В 
$15 21 cU $34 52 4 $53 83 S 
$16 22 cV $35 53 5 $54 84 T 
$17 23 cW $36 34 6 $55 85 U 
$18 24 cX $37 55 7 $56 86 V 
$19 25 cY $38 56 8 $57 87 W 
$1А 26 cZ $39 579 $58 88 X 
$1B 27 < $3А 58: $59 89 Y 
$1C 28 о $3B 59 ; $5A 90 Z 
$1D 29 c] $3C 60 < $5B 91 [ 


МЕ 30 c $3D 61 


Ш 
э 
сл 
С) 
Ne) 
S 
т 


Hex 


$5D 
$5Е 
$5Е 
$60 
$61 
$62 
$63 
$64 
$65 
$66 
$67 
$68 
$69 
$6А 
$6В 
$6С 
$60 
$6Е 
$6Е 
$70 
$71 
$72 
$73 
$74 
$75 
$76 
$77 
$78 
$79 
$7А 
$7В 
$7С 
$70 
$7Е 
$7Е 
$80 
$81 
$82 
$83 


Chr 


Nx 4tm7*v0"n,0'90mmH—mwm-—uvesumonogstm 


——— 


(RUB) 
END 
FOR 
NEXT 
DATA 


MEMORY STRUCTURE 


Hex 


$84 
$85 
$86 
$87 
$88 
$89 
$8A 
$8B 
$8C 
$8D 
$8E 
$8F 
$90 
$91 
$92 
$93 
$94 
$95 
$96 
$97 
$98 
$99 
$9A 
$9B 
$9C 
$9D 
$9E 
$9F 
$A0 
$А1 
$А2 
$АЗ 
$А4 
$А5 
$A6 
$A7 
$A8 
$A9 
$AA 


NORMAL 
INVERSE 
FLASH 
COLOR = 
POP 
VTAB 
HIMEM: 
LOMEM: 
ONERR 
RESUME 
RECALL 
STORE 
SPEED = 
LET 


Hex 


$AB 
$AC 
$AD 
$АЕ 
SAF 
$BO 
$В1 
$В2 
$B3 
$B4 
$B5 
$B6 
$B7 
$B8 
$B9 
$BA 
$BB 
$BC 
$BD 
$ВЕ 
$ВЕ 
$CO 
$С1 
$C2 
$C3 
$C4 
$C5 
$C6 
$C7 
$C8 
$C9 
$CA 
$CB 
$CC 
$CD 
$CE 
$CF 
$D0 
$DI 
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Hex Dec Chr Hex Dec Chr 

$D2 210 SGN $DB 219 RND 
$D3 211 INT $DC 220 LOG 
$D4 212 ABS $DD 221 EXP 
$05 213 USR $DE 222 COS 
$D6 214 FRE $DF 223 SIN 

$D7 215 SCRN( ӨЕ0 224 ТАМ 
$D8 216 PDL ФЕІ 225 АТМ 
$09 217 POS $E2 226 PEEK 
$DA 218 SQR $E3 227 LEN 
TOKEN VIEWER PROGRAM 


The following program will go charging through your tokens and present 
them on the screen for you. What happens is this: the statement in line 20 
is changed by POKEing in various token values into the machine-language 
listing of your BASIC program (2061 is the address where the statement in 
line 20 lives). Each time through the loop, we see the different token by 


LIST 20. Neat, huh? 


10 TEXT : HOME 

20 REM 

30 SPEED = 175 

40 FOR X = 33 TO 234 
50 POKE 2061,X 

60 LIST 20 

70 NEXT X 

80 SPEED = 255 


Hex 


$Е4 
$Е5 
$E6 
$E7 
$Е8 
$Е9 
$EA 


Dec 


228 
229 
230 
231 
232 
233 
234 


Chr 


STR$ 
VAL 
ASC 
CHR$ 
LEFT$ 
RIGHTS 
MID$ 


After you RUN the program, line 20 will be MID$ instead of REM. 
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BYTE ZAP AND HEX 


Welcome to the world of tracks, sectors, and bytes. Byte Zap is a program 
that gets you into the nitty-gritty of data storage, letting you examine and 
change one byte at a time. We will cover some of the more everyday uses 
of this program, how it works, and how to use it as a tool. If you would 
like to get into disk repair and copy protection, please do yourself a favor 
and buy a copy of Beneath Apple DOS at your local computer store. This 
book says it all; half of it is still way over Bert's head (and Bert wrote Byte 
Zap), but both of us are always referring to it and learning from it. 


SOME NOTES ABOUT HEX 


Hex is a big pain; don't let anyone tell you differently. It is, however, a 
beautiful number system to use if you happen to be a computer. Most 
utilities that work with tracks and sectors use only hex. Byte Zap gives you 
the option of using hex or decimal. Hex numbers in the program are 
preceded by a dollar sign and followed by the decimal equivalent in 
parentheses. 

The hexadecimal system is constructed on a sixteen base instead of a 
ten base (like the decimal system). If we had eight fingers on each hand it 
would be easier. Just remember, in hex you count 0-1-2-3-4-5-6-7-8-9- 
A-B-C-D-E-F-10-11-12, etc. (that's decimal 0—18). There's a little hex 
converter program on your PEEKs and POKEs chart that will convert 
numbers from 0 to 255 ($00 to $FF). All of the numbers your Apple uses 
are in that range. 


HOW APPLE DATA ARE STORED 


Let's start big and work our way down. A standard Apple floppy is 
divided into thirty-five concentric tracks numbered 0—34 ($00—$22). Each 
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track is further divided into sixteen sectors numbered 0-15 ($00—$0F). 
Bytes are made up of bits, too, but this is where we get off. 

A byte is a piece of magnetic data we don't really understand; just 
think of each byte as a number from 0 to 255. This number can represent 
just that, a number (or part of a number), an ASCII character (letters, 
numbers, etc.), a BASIC token (command words like PRINT, GOSUB, 
etc.), or some kind of machine-language command. These bytes are 
written or rewritten onto a disk when you SAVE a program, RENAME a 
file, or perform any of the writing functions of DOS (Apple's Disk 
Operating System). When you LOAD a program, you are only reading 
bytes off the disk and into memory, not changing anything on the disk. 


HOW BIG IS THAT PROGRAM? 


One way to tell the size of a program is to SAVE it and look in the 
catalog. Every sector, not counting the first one, is about 256 bytes in size. 
Divide the sector count by 4 and you have roughly the size of the program 
in K's. For example, a 48-sector file occupies about 12K or 12,000 bytes. 

Another way to tell a program's size is to LOAD it into memory and 
then subtract its start address from its end address, like so: 


PRINT CPEEKC175) + РЕЕКС176) +256) - (PEEK 
(103) + PEEKC1042*256) 


This typing exercise will tell you the number of bytes your program 


occupies. The start address is usually 2049, so you can use 2049 instead of 
the second pair of PEEKs. 


THE BYTE REPORT 


For beginners only: Perhaps the following discussion of disks and data 
will help in your use of Pro-Byter. If not, at least we tried. 
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A BYTE IS A NUMBER 


All Apple II data exist in memory or on disk as a series of bytes, each with 
its own value ranging from 0 to 255. These bytes ‘‘look’’ much the same 
on disk as they do in memory. What they really are is beyond us; we just 
know that they exist. And they do the job. 

Each byte is made of eight bits (the 1’s and O's that you hear so much 
about). You don't need to know about bits now. Forget bits. 


byte byte byte byte... 
value 10 value 99 value 123 valueQ... 


Each byte has some value, 0-255. 


HEX 


If you’re going to get into this byte stuff at all, you’re going to have to 
learn about hexadecimal numbers. Just pretend like you have eight fingers 
on each hand, numbered 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F. A dollar sign 
in front of the number makes it clear that we’re counting in hex instead of 
decimal. This chart serves as a ''hex converter’? for numbers 0-255 
($00—$FF). After $FF (or $00FF) comes $0100 (256). . . . Get the picture? 
Good. 


HEX EQUIVALENTS 


96 $60 

97 $61 

98 $62 

99 $63 
100 $64 
101 $65 
102 $66 
103 $67 
104 $68 
105 $69 
106 $6A 
107 $6B 
108 $6C 
109 $6D 
110 $6E 
111 $6F 
112 $70 
113 571 
114 $72 
115 $73 
116 $74 
117 $75 
118 $76 
119 $77 
120 $78 
121 $79 
122 $7A 
123 $7B 
124 $7С 
125 $7D 
126 $7E 
127 $7F 


128 $80 
129 $81 
130 $82 
131 $83 
132 $84 
133 $85 
134 $86 
135 $87 
136 $88 
137 $89 
138 $8A 
139 $8B 
140 $8C 
141 $8D 
142 $8E 
143 $8F 
144 $90 
145 $91 
146 $92 
147 $93 
148 $94 
149 $95 
150 $96 
151 $97 
152 $98 
153 $99 
154 $9A 
155 $9B 
156 $9C 
157 $9D 
158 39E 
159 $9F 


160 $A0 
161 $A] 
162 $A2 
163 $A3 
164 $A4 
165 $A5 
166 $A6 
167 $A7 
168 $A8 
169 $A9 
170 $AA 
171 ЗАВ 
172 $AC 
173 $AD 
174 $AE 
175 $AF 
176 $B0 
177 $B1 
178 $82 
179 $B3 
180 $84 
181 $55 
182 $B6 
183 $87 
184 $B8 
185 389 
186 $BA 
187 $BB 
188 $BC 
189 $BD 
190 $BE 
191 $BF 
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0-255 ($00—$FF) 


192 5С0 
193 $C] 
194 $C2 
195 $C3 
196 $C4 
197 $C5 
198 $C6 
199 $C7 
200 $C8 
201 $C9 
202 $CA 
203 $CB 
204 $CC 
205 $CD 
206 $CE 
207 SCF 
208 $00 
209 $D1 
210 $D2 
211 $D3 
212 $D4 
213 $D5 
214 $D6 
215 $D7 
216 $D8 
217 $D9 
218 $DA 
219 $DB 
220 $DC 
221 $DD 
222 $DE 
223 $DF 


BYTES IN MEMORY 


A 64K Apple's memory is simply a long series of bytes, numbered from 0 
to 65,535 ($0000-$FFFF). Each byte or series of bytes may be interpreted 
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differently, depending on the program or language that is doing the 
interpreting. 


byte #0 byte #1 byte #2 byte #3... byte $65,535 
value 10 value 99 value 123 value 55... value 127 


Memory is made up of bytes. 


Memory is often illustrated with a rectangle or “тар” with byte #0 
at the bottom and byte #65,535 at the top: 


65,535 (SFFFF) 


0 ($0000) 


Think of memory as a tower of bytes. 


The first 49,152 bytes in memory are changeable (**Random Access 
Memory"). The last 16,384 are unchangeable (Кеа Only Memory"). 


65,535 (SFFFF) 


49,152 ($С000) 


0 ($0000) 
ROM and RAM. 
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PEEKING AND POKING 


You can use your Apple to “реек” at any byte in memory, from lowly 
byte #0 to big byte 465,535. For example, type: 


PRINT PEEKC800) 


You will see an answer printed on the screen. This number, always in the 
range 0—255, is the value of byte #800. 

You can change, ог ““роКе,” any byte from #0 to $49,152. Let's 
POKE byte #800. Type: 


POKE 800,123 


Now type: 


PRINT PEEKC800) 


There. You have changed the value of byte #800. Try changing a byte 
greater than 49,152—you can POKE the value (or so it seems) but it won't 
stick. 

Wait a minute! You can PEEK all you want, but you really shouldn't 
do any POKEing unless you (think you) know what you're doing. The 
worst that can happen is that you'll ruin a disk or destroy DOS; you can't 
hurt your Apple by pressing keys. Ruined disks are no problem if you've 
made a backup copy first. Destroyed DOS is ‘‘repaired’’ by simply 
rebooting. 


CHAPTER 4 


APPLESOFT 


TIPS 


“QUOTES “WITHIN” QUOTES” 


You probably thought you couldn’t put quote marks inside of a quote 
Statement. Well, run this program, then list line 20. The carets will have 
been replaced by quotes. Trouble is you can’t re-RUN the program or 
reencounter line 20 without hanging. 


10 HOME : ONERR GOTO 6000 

20 A$ = "THIS IS NOT AS ^USEFUL^ AS IT 
LOOKS.": GOSUB QUOTE 

30 PRINT A$: LIST 20: END 

6000 ER = PEEK (220) + PEEK C221) » 256: 
FOR EE = ER - 2 ТО 1 STEP - 1:P = PEEK 
CEE): POKE ЕЕ,Р - 60 * СР = 94): IF P 
< > 34 THEN NEXT 

6001 POKE ER * 1,178: RESUME 


The GOSUB QUOTE is illegal, causing an ONERR jump to line 
6000. 

Line 6001 changes the GOSUB to a REM, so the program can 
RESUME. The next program has a better way of printing quotes. 


35 


36 


THE BIG TIP BOOK FOR THE APPLE II SERIES 


GOSUB QUOTE CONVERSION 


In this program the string will be printed on the screen, and then the carets will 
be converted to quote marks. Remember, carets are those little pointy things. 


5 
10 


20 
100 
1000 


1001 


TEXT : HUME : NORMAL 

PRINT "PUT THIS IN ^QUOTES^ FOR ME.": 
GOSUB 1000 

PRINT "AND “THIS* AND ^*THIS^ AND 
*THIS* 20" t GOSUB 1000 

END 

VTAB PEEK €37):L = PEEK (40) + PEEK 
C41) ж 256% FOR T = | TO | + 39¢ IF 
PEEK CI) = 222 THEN РОКЕ 1,162 

NEXT : PRINT : RETURN 


SECRET DECODER 


To translate what the two guys in the middle are saying, type in line 20 as 
shown here and add a line 10 that sets A$ equal to what it looks like each 


man said. 


S 3» 
e “у 
Y ©. Ах ! $ 


J'E MJLF UP 
LOPX XIBU ОЕРОМЕ 
EP XJUI UIFTF 
TUSBOHF UJQT. 


-k 
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20 HOME : FOR L = 1 TO LENCA$)..: Av= ASC 
CMID$CA$,L,1)) 

25 Ai = В = CA64) = 19 = Сб = 32) + PRINT 
CHR$CA); : NEXT 


Remember HAL, the wise computer in the movie 200]: A Space Odys- 


sey? Rumor has it that he got his name using a program something— 
but not quite—like this. 


?LINE MISMATCH 


Running this program will produce a ''?Syntax Error in 10” error 
message. 


10 БАТА 1,2,3,4,ҒІУЕ,6,7,8 
20 READ A : PRINT A : GOTO 20 


Wrong! Line 10's syntax is perfectly legal. The problem is in line 20, 
where we are trying to read a string (FIVE) as a numeric variable (A). 
Next time Applesoft accuses you of an improper DATA statement, this 
might be your problem. 
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SOME GPLE STUFF 


The next two tricks are accomplished with GPLE (Global Program Line 
Editor). If you don't have GPLE, go get it and come back, or just forget 
the whole thing! 


CONTROL-M COLUMNIZER 


GPLE's Edit Mode lets you insert carriage returns (Control-M's) into 
PRINT statements. Notice this program line: 


10 HOME : PRINT "THESE" : PRINT "WORDS" : 
PRINT "WILL" : PRINT "PRINT" : PRINT "IN 
A" : PRINT "COLUMN" 


Try this (in Edit Mode): 
EDIT 10 «RETURN» 


10 HOME : PRINT “THESEmWORDSmWILLm 
PRINTmIN AmCOLUMN." 


To insert control characters, see Control-O (Override). 

The lowercase m’s are Control-M's. Both preceding program lines will 
produce the same result. The second method will print and LIST in a 
column; it also takes up just a bit less memory than normal. 


REM TRICKS 


By injecting some backspaces (Control-H's) and carriage returns (Control- 
M's) into REM statements, you can make some nice headings for your 
Applesoft program listings. 
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10 REM 
PROGRAM NAME 


20 PRINT "START OF PROGRAM" 


How It’s Done 


10 REMmmPROGRAM NAMEm------------ 
20 PRINT "START OF PROGRAM" 
30 REM m=CONTROL=M 


Another Example 


а «аи! Notice how the line number is hidden by 
БОТА Uf hyphens. This is done with controi-H's 


PROGRAM NAME к (backspaces), which back the cursor up so 
the hyphens write over the line number! 


20 PRINT "START OF PROGRAM" 


How It’s Done 


10 REMhhhhhhhh------------ PROGRAM NAME 


20 PRINT "START OF PROGRAM" 
30 REM h=CONTROL=H, m=CONTROL=M 


You must adjust the number of Control-H’s according to the number of 
digits in the line number. 


CONTROL.] REMS 


10 REM CONTROL=J REMS ARE EASY 
15 REM LOOK AT THIS 
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20 REM C2 CTRL-J'S AFTER "КЕМ" ) 
30 REM CGPLE NOT NECESSARY) 


SEE YA LATER TRUNCATOR 


If you want to delete some program lines numbered greater than 63999, 
add line 5000 (it can be any number you want) and GOTO it. 


5 GOTO S000: REM TEMPORARY LINE 

10 REM THIS LINE WILL STAY 

5000 X = PEEK (121) + PEEK (122) * 256: 
POKE X + 1,0: POKE X + 2,0:X = X + 3: 
РОКЕ 175,X -INT СХ / 256) * 256: РОКЕ 
176, INT CX / 256): END : REM ADD 
THIS LINE & GOTO IT FROM 
ANOTHER PROGRAM LINE 

6000 REM THIS LINE DISAPPEARS 

65535 REM SO WILL THIS ONE 


NO-WORD-BRE 
AK TIP 


Printing text on the 40-column screen without breaking words at the right 
margin isn’t always easy, even with GPLE. The following subroutine at 
line 1000 will do the dirty work for you, breaking words only at spaces or 
hyphens. If you don’t like what you see, you can go back and insert a 
hyphen or two with GPLE and then re-RUN. This program also converts 
lowercase to uppercase on non-//e’s and //c’s. 
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100 E2 = PEEK С - 637) < > 223: REM E2=1 
IF APPLE //E 

110 COL = 30: REM WIDTH MINUS 1 

120 HT = 5: REM LEFT MARGIN 

130 SP$ = CHR$ (32): REM SPACE 

T40- HOME = PRINT а 
+----+----+----+1 

200 A$ = “User-friendly software never 
tells the user that he is a klutz for 
typing an inappropriate answer to a 
question. Instead, a program should be 
polite; a slight rap on the user’s 


knuckles will suffice..." 
210 GOSUB 1000 
999 END 


1000 НТАВ HT: IF LEN СА$) < COL THEN FOR I 
= 1 TO LEN CA$):J = ASC € MIDS CA$,I, 
122: PRINT CHR$ CJ - 32 СУ > 95 AND 
МОТ Е2));: NEXT : RETURN 

1010 FOR LTR = COL TO 1 STEP - 1:X$ = MIDS$ 
CA$,LTR,1): IF X$ < > SP$ AND X$ < > 
"-" THEN 1050 

1015 IF E2 THEN PRINT LEFT$ CA$,LTR - CX$ = 
SP$)): GOTO 1040 

1020 FOR I = 1 ТО LTR:J = ASC € МІР? CA$,I, 
129: PRINT CHR$ CJ - 32 * CJ > 95));: 
NEXT : PRINT 

1040 A$ = RIGHTS CA$, LEN CAS) - LTR): GOTO 
1000 

1050 NEXT : PRINT : PRINT CHR$ €7);"WORD 
TOO LONG";: END 


NOW YOU SEE ІТ... 


In case you want to edit a line, but you don't know what the line number 
is, set SPEED=1 and LIST. Aha! Set SPEED —255 to regain normal 
speed. (Escape L on GPLE does this for you.) 
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ABOUT GPLE 


And speaking of the Global Program Line Editor. . . . In case you don't 
know what GPLE does, you should! First, it allows you to edit program 
lines in no time compared to what you're probably doing now. Second, it 
has an ‘‘Escape Create’’ function that lets you program any key to perform 
any function. For example, Escape L can LIST a program, Escape P can 
type the word **PRINT" for you, Escape М can type “МОМ IS THE 
TIME FOR ALL GOOD MEN TO GOSUB 86,” etc., etc. 


EXTRA IMPORTANT TIP 


gne of the newer Apples with the grey 
ters. you will find that underneath 
УР anel is one of the most important 

ES ever use. Try it. You'11 be amazed! 
Sad this here! 
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TEXT WINDOW TRIX 


Dewindow 


To set your Apple text window to normal, you could type POKE 32,0 : 
POKE 33,40 : POKE 34,0 : POKE 35,24. Or you could type: 


TEXT 


CONTROL EQUIVALENTS 


Hitting Control-M is the same as hitting RETURN. Control-H is a back- 
space. Control-U is a forward space. Control-[ is Escape. Control-J moves 
the cursor down one line. Just thought we'd mention it. 


USER OPTIONS 


In Applesoft, there are different ways to say the same thing: 


This... is the same аз... 
LETX = 7 X=7 

IF X > 0 THEN PRINT IF X THEN PRINT 

IF X = 0 THEN END IF NOT X THEN END 


IF = 8 THEN GOTO 10 IFX = 8 THEN 10 

IF = 2 THEN INVERSE POKE 50,255-192 * (€ 22) 
T2 +2 PRINT 2 + 2 

PRINT “НЕШО.” PRINT “НЕШО. 

NEXT X NEXT 
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APPLE'S HEX CONVERTER 


You can convert a hex number to decimal in the monitor. Say you want to 
convert $0564 to decimal. From Applesoft, enter the monitor with CALL 
-151, and type: 


*45: 05 64 М Ер246 


Your decimal answer, 1380 in this case, will appear! Use the N ED24G 
for converting any number (from Applesoft only). 

You can add and subtract hex in the monitor, too. Just type the 
equation, say “АВ--ЗЕ” (don't type PRINT), and hit RETURN. Apple 
even throws in a free equal sign. 


SAVE/1 SAVE/2 SAVE/3... 


Make progressive backup copies as you program, but give each a different 
name (PROGRAM/1, PROGRAM DJ, еіс.). That way, you can back up a 
step or two if some permanent damage occurs. A new SAVE every ten 
minutes or so is a good idea. 


? REMOVER 


Nothing rattles my chips as much as seeing а $40 program ask me “ТҮРЕ 
YOUR ANSWER НЕКЕ?” The question mark shouldn't be there, and 
with the Apple, it doesn't have to be. The question mark is produced in 
this program: 


10 HOME : PRINT "TYPE YOUR ANSHER HERE" 
20 PRINT " (8 LETTERS OR LESS)" 

30 VTAB 1 : HTAB 22 

40 INPUT ANS$ 
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To eliminate the ?, make line 40— 
40 INPUT ":'':ANS$ 
Or, if you are completely antipunctuation: 


40 INPUT " '';ANS$ 


STOP 


Applesoft’s STOP works just like END, but it tells you the line number 
where your program stopped. Use STOP for debugging. 


SEMI-END 


If you want to end a program with no distracting flashing cursor, try one of 
these methods. 
If you’re in hi-res, make your last line: 


1000 VTAB 1 : END 


The flashing cursor is on the screen, but hidden by hi-res. 
This method won’t work in lo-res or text; so try: 


1000 GOTO 1000 


You could also program the cursor to come back when any key is 
pressed: 


1000 K=PEEK (€-16384) : IF К < 128 THEN 1000 
1001 POKE -16368, 0 : END 
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Or, if you're really smart and using Applesoft: 


1000 WAIT -16384,128 
1001 POKE -16368,0 : END 


The POKE in 1001 clears the keyboard buffer. There’s nothing worse than 
a stuffed buffer. 


CRUISING THROUGH APPLESOFT 


In the DOS section there’s a cruise through DOS to find DOS’s vocabu- 
lary. Well, here’s a good program that does the same in good old FP! 


10 REM ** APPLESOFT CRUISE ** 

20 START = 53456:FIN = 54116 

30 TEXT : HOME : INVERSE : PRINT " APPLESOFT 
COMMANDS: '": NORMAL : PRINT “---------- 


40 FOR X = START TO FIN:P = PEEK CX) 
50 IF P = 7 THEN INVERSE : PRINT "G'';: 
NORMAL 
60 PRINT CHR$ (Р>;: IF Р < 128 THEN 110 
70 N=N + 1 
80 IF ERR THEN HTAB 1 + 22 * CCN - INT CN / 
2) * 2) = 0) 
90 IF NOT ERR THEN НТАВ 1 + 8 * CN - INT CN 
/ 5) * 5) 
0 IF PEEK (36) = 0 THEN PRINT 
0 IF X = 53854 THEN ERR = 1: INVERSE 
FOR I = 1 TO S00: NEXT : PRINT : PRINT 
PRINT " APPLESOFT ERROR MESSAGES: ": 
NORMAL. : PRINT "----------------------- 


120 NEXT X 
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BETTER NEW ON OLD DOS 


If you've been doing some weirdness on your Apple and want to start a 
new program, FP (DOS 3.3 only) is more efficient than NEW for clearing 
memory and resetting pointers. Another way to ''delete"" most Applesoft 
programs is to POKE 2049,0: POKE 2050,0. Put these POKEs at the end 
of a program and it will erase itself. However, if you have ProDOS 
up on your Apple //c, it'll laugh at you if you try FP or INT. (Use 
the System Master from an Apple //e to get INT and FP cranking on 
your //c.) 


PRINT SPC 


If you're writing programs for others to read, always use 
PRINT SPCC10) 

instead of 
PRINT " " 


The reasons аге obvious. 


MOD 


Bert learned how to program in Integer BASIC, and he has since converted 
his efforts to Applesoft. The INT feature Bert misses most is the MOD, or 
remainder, function—3 MOD 2 is 1, 99 MOD 10 is 9, etc. This is a very 
useful function that can be simulated in Applesoft with many more 
keystrokes. Here is a MOD program in Integer. 
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10 REM INTEGER BASIC 

20 FOR X = 1 TO 100 

30 IF X MOD 3 = 0 THEN PRINT X 
40 NEXT X: END 


To convert to Applesoft, just change line 30 to the following: 


30 IF X - INTCX/32* 3 = 0 THEN PRINT X 


FREE MOD 


This isn't an Applesoft tip, but it's a neat way to get MOD and a great 
language for your Apple free! One of the hottest languages for microcom- 
puters is FORTH. It's fast, weird, wonderful, and several versions are in 
the public domain. Go to your nearest Apple user's group and get your 
copy. FORTH has MOD, naturally. 


Sometimes, strings can contain hidden characters like leading or trailing 
spaces or control characters. Setting screen output to inverse will reveal 
hidden spaces. Type: 


A$s"FISH " : PRINT A$ 


The Apple will hand you a four-letter word apparently without the trailing 
space. Now try INVERSE : PRINT A$. You can now see all five charac- 
ters, including the space. Another way to search for hidden characters is to 
PRINT A$; LEN(A$). If the number is higher than the number of visible 
characters in the word, you can suspect some hidden control characters or 
spaces. 
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A DIFFERENT APPROACH 


If a programming solution is getting you down, try looking at it from a 
whole new angle. And if you're really stuck, start over. 


TOKEN TRICKS! 


In the last chapter there was a chart of Applesoft's tokens along with a 
program to list the tokens. Here are two more programs. Both zap their 
first lines and then list them. Both are nice demos of Applesoft's token system. 


10 
256 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 


GOTO 256 

TEXT : POKE 2054,0: FOR I = 128 TO 234: 
POKE 2051,1: РОКЕ 2053,I: VTAB PEEK 
(37) - 1: LIST - 255: NEXT : POKE 2051, 
10: POKE 2053,171: POKE 2054,50 


REM <-LOOK AT THIS...... 

HOME :@ = - 16384 

START = PEEK (103) + PEEK (104) * 256 
VTAB 10: PRINT "THIS IS LINE 10--" 
VTAB 15: PRINT "HIT ANY KEY TO END." 
FOR X = 234 TO 32 STEP - 1 

POKE START * 4,X 

VTAB 11 

CALL - 868: LIST 10 

FOR I = 1 TO 40 

IF PEEK (Q) > 127 THEN 130 

NEXT 1,Х 

POKE - 16368,0: LIST 
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THREE APPLE ERROR MESSAGES 


*** SYNTAX ERR Integer 
?SYNTAX ERROR Applesoft 
SYNTAX ERROR DOS 


ERROR SILENCER 


Many beginning programmers don't know about Applesoft’s ONERR 
command. Put an ONERR GOTO 999 (or whatever line you want) at the 
beginning of your program. Anytime (almost) an error occurs, instead of 
crashing with an error message, your program will jump to line 999 which 
could instruct the program to jump to your menu, or start over. While you 
are programming, you will want error messages, so stick a REM in front 
of your ONERR command; or put a POKE 216,0 in the routine you are 
working on. This POKE disables ONERR. 


? ERROR? 


When you encounter an error in hi-res, you get a beep, but usually no 
visible error message. Just hit Reset or type TEXT to reveal the message. 


ONERR ERROR LISTER 


Here’s a good one. This program has an intentional error in line 12345. 
Type it exactly as you see it. Be careful; a typo in line 60000 can really 
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create a big mess when you RUN the program (we know— we've been 


there). 


10 
20 
12345 
12346 
59999 
60000 


ONERR GOTO 60000 

REM YOUR PROGRAM STARTS HERE 

PRINT :PIRNT :PRINT 

REM NOTE ERROR TEST IN LINE ABOVE 

END 

T2256: Е=РЕЕКС220) +Т+РЕЕКС221): Е=Е+5 
*CPEEKCE220): 

V=PEEKCE): POKEE,207: 
1%-РІОНТ%("0000"%5ТЕ%(РЕЕКС2189%Т% 
PEEKC219)),5): 
L=PEEKC121)+T#*PEEKC122)+49: FORI=1TOS: 
POKEL+I ,ASCCMIDSCL$,1,1)): NEXT: LIST 
12345: POKEE,V: 

POKE216,0: RESUME 


SAVE the program and then RUN it. What you will get is the usual 
error message and a listing of the offending line with an arrow (greater-than 
sign) pointing to the statement that caused the error! No more searching; a 
big help if you’re like us and use six pounds of statements in each line. 
Add lines 10 and 60000 (could be any line numbers) to one of your 
programs in progress. It’s a great debugger! 


ERROR TOKENS 


Tokens are machine-language equivalents for the commands and characters 
in your Applesoft programs. See chapter 3 for more details. The tokens we 
don’t understand are 235—255 (that’s why you won't find them in chapter 
3). Type this program and RUN it. 


S HOME 


6 FOR 


X = 236 TO 252: POKE 2053,X: REM 


CHANGE LINE 5 

7 CALL - 998: CALL - 998: LIST 5: NEXT : 
POKE 2053,178: REM CALL-998 MOVES CURSOR 
UP A LINE 
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Line 6 changes line 5 and line 7 LISTs it. But why all those error 
messages? Who knows? 


ONERR TELL ME 


ONERR GOTO is great for keeping a program on its feet and running 
when an error is encountered. But you want to catch those errors if you are 
programming. You should either take the ONERR statement temporarily 
out of your programs or put line 1000 (see following) in. Actually, this 
line could be put into all of your programs. 


10 6$ = CHR$ (7): ONERR GOTO 1000 

20 Х = X + 1: NORMAL : PRINT X 

30 IF X = 19 THEN PRITN “NINETEEN”: REM 
ERROR: MISPELLED WORD 

40 IF X = 30 THEN GOTO 99: REM ERROR 
NONEXISTENT LINE 

50 IF. Х < 35 THEN. 20 

60 END 

1000 INVERSE : PRINT G$: ERROR *'"; PEEK 
(22291" UN LINE "4 PEEK Cele) + PEEK 
(219) * 25677,7: OBTBH 20 


RUN the program and compare the error numbers with the ONERR codes 
in your Applesoft manual. 


ONE-KEY COMMANDS! 


APPLESOFT TIPS 53 
Type this: 
POKE 1013,76 : POKE 1014,110 : POKE 1015,165 


Now, the command *'&" «RETURN? will CATALOG! Change the 
numbers after the commas to 76, 165, and 214 and ‘‘&’’ will LIST; 76, 
18, and 217 will make “%” RUN; 76,112, and 214 will make ‘‘&’’ clear 
all variables to zero. When you type ‘‘&’’ (that's called ‘‘ampersand’’), 
your Apple jumps to location 1013 ($3F5) to see what's happening there. 
The POKEs discussed here tell the Apple what to do. 


PLEASE PARSE THE VARIABLES 


Applesoft can do some weird things with variables. For instance, the 
statement, 


IF X = T AND Y = 0 THEN PRINT 
will be respaced or *'parsed'' to read, 
IF X = TAN DY = 0 THEN PRINT 


and cause a ‘‘?ЗУМТАХ ERROR,” because ТАМ is a reserved word 
meaning tangent. To prevent this, rename the variable or put it in parentheses: 


IF X = CT) AND Y = 0 THEN PRINT 


More details on parsing are somewhere in your Applesoft manual. We 
don't have time right now to check the page number. 


SLOT SEARCH 


We need your help! Here's a program that reads your Apple's slots to see 
what's in them. We know that if a disk controller card is in a slot, the value 
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for that slot is 162. The three printers we have checked out have returned a 
24. A Novation Super-Cat modem is a 255. Please let us know your results 
when you RUN this program with your equipment. Apparently, if a slot is 
empty, the value keeps changing, so look for a slot with an unchanging 
number. Of course, the Apple //c has to be different. The internal disk 
drive thinks it's in slot 6 and none of the other values blink if their *'slots"' 
are empty; they just say EMPTY. 


10 PRINT CHR$C21D : HOME : FOR X = 1 TO 20 
: FOR I = 1 ТО 7 : REM CNOT 0 TO 7) 

20 N = 49152 + 256 * : PN = PEEK CN) 

30 VTAB 4 + 2» I: НТАВ 1: PRINT "SLOT 
"s15;": PEEKC' SN; ") ="; РМ; SPCC 2) 

40 VTAB 4 + 2 * I: НТАВ 26 

50 ВСІ) = ACIO:ACID = PN: IF ACID < > ВСІ? 
THEN CALL - 868: PRINT “CEMPTY)"™: GOTO 
500 

60 INVERSE 

100 IF PN = 162 THEN PRINT “DISK DRIVE" 

110 IF PN = 24 THEN PRINT "PRINTER" 

500 NORMAL : NEXT I,X: VTAB 22 


PLAY IT SAFE 


SAVE each program you type before you RUN it. Sometimes a bug or 
typo will cause a program to self-destruct when it's RUN. 


THE INCREDIBLE SHRINKING NUMBERS 


This program demonstrates Apple's handling of small numbers. 


>< 
ип 
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1 
X / 10 : PRINT X : GOTO 20 


And big numbers: 


>< 
и u 


1 
X * 10 : PRINT X : GOTO 20 


55 


We don't know how they came up with the “ʻE.” Probably stands for 
Extrahuge and Extrateensy, right? 


NUMBER UNCRUNCHER 


Have you ever wanted to dissect a decimal number into its separate digits? 
Here are two ways to do it: 


4 
5 


10 


20 


30 


40 
99 


TEXT : HOME : INVERSE 

PRINT “DIGIT DISSECTOR": NORMAL : PRINT 
"<S> STRING METHOD (РАЗТЕК)": PRINT 
"«M» MATH METHOD CSLOWER)": PRINT : GET 
A$: IF A$ = "S" THEN 100 

IF A$ < > "M" THEN END 

REM 


DIGIT DISSECTION CMATH) 


INPUT "ANY WHOLE NUMBER:" 


; N 
(ND:L = LEN € STR$ (ND): I 


N:N = INT 
FL»9T 
FOR X = 1 TO L:E = L + 1 - X:MOD = INT 
СМ / 10^ ED * 10 ^ E:MOD = N - MOD:DCXD 
= INT (MOD / €10 ^ CE - 1099: NEXT 

FOR X = 1 TO L: PRINT “DIGIT *'';X;'': 
"SDCXO: NEXT 

PRINT : GOTO 5 

REM 


DIGIT DISSECTION CSTRINGS) 
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100 INPUT "ANY WHOLE NUMBER:';N:N = INT 
CN) :N$ = STR$ CNI:L = LEN CN$): IF L > 
9 THEN 100 

110 FOR X = 1 TO L:DCX) = VAL € MIDS$ 
CN$,X,122: NEXT 

120 FOR X = 1 TO L: PRINT “DIGIT *'';X;'': 
"sDCX): NEXT 

130 PRINT : GOTO 5 


The first method does the dissecting mathematically, and the second does 
it with strings. The latter is much, much faster. 


HOW MUCH DATA? 


If you wonder how many items you have in a DATA statement, don't 
count them; let your Apple count them. Temporarily insert a giant loop at 
the start of your program, like: 


1 FOR X = 1 TO 1000000 : READ X$ : NEXT 


RUN it. Sooner or later, you'll get an ““?0UT OF БАТА” error message. 
Now type PRINT X-1 <RETURN>. The value you get for X-1 will tell 
you the number of items of DATA you have. 

If you're smarter than we are, you'll have an error trap that will 
automatically do it for you. Furinstance . . . 


1 ONERR GOTO З 

2 X = 1 + 1: READ X$ : GOTO 2 

3 PRINT X - 1 " ITEMS " : END 

10 FOR X = 1 ТО N : READ X$ : NEXT 
50 DATA MAN, WOMAN, FISH, BICYCLE 
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DELAY LOOPS 


When you want a program to stop and wait, make your Apple sit there and 
count to some big number (your Apple doesn’t mind; in fact, it’s good for 
him/her). Insert a statement like: 


FOR X = 1 ТО 2000 : NEXT X 


Every 1000 is approximately a one-second wait. If your program is going 
to pause many times, use a delay loop as a subroutine (GOSUB) to save 
memory. 


GET PROMPT 


Type PRINT PEEK(51). Better yet, PRINT СНЕФ(РЕЕК (51)) if you're 
using Applesoft. This little exercise will show you what language you are 
using (in case you didn't know!) by printing its prompt character. Integer's 
“>” is represented at location 51 in memory by a value of 190. Apple- 
soft's “|” is а 221. Try to POKE in a different number. . . . Forget it; 
you can't. Another location that tells your language is 43702. Type PRINT 
PEEK(43702). If you're in Integer, you'll get in trouble since 43702 is 
larger than 32767. Use PEEK (-21834) instead; you'll get a zero. Applesoft 
ROM gives you a 64; Applesoft RAM, a 128. 


BETTER GETTERS 


Applesoft's blasted INPUT function won't accept (1) commas, (2) colons, 
or (3) leading spaces. Try answering an INPUT with a comma or colon in 
the answer and you get the famous “?ЕХТКА IGNORED” statement. It 
doesn't make a lot of sense the first time you see it. Well, let's do 
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something about the problem. Here are two little inputters. Both feature 
different types of inputs that accept (1), (2), and (3)!! 


10 REM 


COMMA INPUTTER £1 


20 PRINT CHR$ €21): HOME :BKSP$ = CHR$ 
(820:CR$ = CHR$ (13): 0% = CHR$ C34) 

30 PRINT "ЫНАТ”5 YOUR NAME? "; 

40 NAMES = " '": GOTO 50 

50 GET LTR$: IF LTR$ = BKSP$ THEN МАМЕ$ = 
LEFT$ CNAMES$, LEN CNAME$) - 1): NORMAL 

PRINT LTR$; SPCC 1); 
60 IF LTR$ = CR$ THEN 100 
70 IF LTR$ > = " " THEN NAMES = NAMES + 


LTR$ 
80 INVERSE : PRINT LTR$; 
90 GOTO 50 


100 IF LEN CNAME$) THEN ЕМАМ$ = 
и: FOR X = LEN СМАМЕ$) TO 1 STEP -1: 
EMAN$ = ЕМАМ$ + MID$ CNAMES, X, 12: NEXT X 

110 NORMAL : PRINT : PRINT : PRINT Q$; NAME 
6;0%" SPELLED BACKWARDS": PRINT "IS '';: 
PRINT 0%;ЕМАМ%;".";0%: PRINT 

120 NAMES = ""; GOTO 30 

130 GOTO 40 


10 REM 


20 PRINT CHR$ (21): HOME 

30 PRINT "TYPE YOUR NAME ": PRINT "CLAST, 
FIRST): ''; 

40 CALL - 657 

SO NAMES = " "; FOR X = 512 TO 767:C$ = 
CHR$ € PEEK (X22: IF C$ < > CHR$ (141) 
THEN NAMES = NAMES + C$: NEXT 

60 L = LEN CNAME$): FOR X = 1 TO L: IF 
MID$ CNAME$,X,1) < > CHR$ €172) THEN 
NEXT : PRINT "PLEASE SEPARATE YOUR 
NAMES WITH А СОММА.": GOTO 30 

70 LAST$ = LEFT$ «МАМЕ%,Х - 1) 
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80 FIRST$ = RIGHTS CNAME$,L - X) 

90 L = LEN CFIRST$): IF LEFT$ CFIRST$,1) = 
CHR$ (160) THEN FIRST$ = RIGHTS CFIRST 
$,L - 1): GOTO 90 

100 PRINT : PRINT “HELLO, ";FIRST$; 
LAST$;'",'": PRINT "MY NAME IS 
COMPUTER, APPLE!" 

GOSUB POKER 
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In Apple's other language, the late Integer BASIC, you could set line 
numbers equal to variables (like LET X = SHUFFLE). Then you could 
say GOSUB SHUFFLE or IF EMPTY THEN SHUFFLE. When you 
looked at your program, you could tell what was happening without 
REMs. Well, you can't do that in Applesoft, not even with this program; 
it's only about 30 percent as good. Type it in carefully; the first two 
lines have to be exactly as printed here, or the whole thing gets 


scrambled. 


10 
20 


30 
40 
45 
50 
678 


GOTO 30 

POKE 2213,48 + G - INT (С / 10) * 10: 
POKE 2212,48 + INT (CG - INT СО / 
1000 * 100) / 109: POKE 2211,48 + INT 
(Сб - INT (6 / 1000) * 1000) / 100): 
POKE 2210,48 + INT ССС -INT CG / 
10000) * 10000) / 10000: POKE 2209,48 
*INT CG / 10000): GOSUB 00678: RETURN 
SHUFFLE = 12345:COUNT = 678 

G = SHUFFLE: GOSUB 20 

G = COUNT: GOSUB 20 

END 

PRINT "THIS IS COUNT.'': RETURN 


1234S PRINT “THIS IS SHUFFLE.": RETURN 
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Notice that instead of *"GOSUB SHUFFLE,” you have to say С = SHUFFLE 
: GOSUB 20. When you do, the GOSUB in line 20 is actually changed in 
the listing. 

For those of you who are planning on getting an Apple Macintosh, 
Apple's BASIC for the Mac can jump to labels. But with Mac's BASIC 
you don't even need line numbers! GOTO MAC. 


GET GET STRAIGHT 


GET is a funny animal. Here are today's quirks: 


a. If you GET a number with a statement like GET X, and you 
input a letter, the program bombs with a ''?SYNTAX ERROR." 

b. GET interprets a right arrow (Control-U, ASCII 21) as a space 

(ASCII 32), but it interprets a left arrow (Control-H, ASCII 8) 

correctly. 

You can't GET an Escape (ASCII 27) keypress. 

d. GET interprets the length of a carriage return as 1, whereas 
INPUT considers the length zero. 

e. GET won't let Control-C exit a program. 


о 


Here is а getter that might teach you something: 


10 PRINT "ANY KEY:"; : GET A$ 
20 PRINT A$, ASCCA$) : GOTO 10 


PLEASE ANSWER (Y/N) 


If your program is looking for a yes or no answer, it is best to GET a 
one-character answer, something like: 
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10 PRINT "ANSWER CY/N):" : GET A$ 


Oh, yes—something we learned the hard way: someone could answer 
with a lowercase y or n. We think Murphy's Law says you should be ready 


for this. GET, by the way, is better than: 


10 INPUT “ANSWER CYES/NO):";A$ 


The problem with INPUT is that (we don’t know why) people often put a 
space after their answer, and even the dumbest Apple knows that '*YES"' 


is not equal to “ҮЕ5 ”. 


GET THEIR ATTENTION 


The INPUT and GET prompts in some programs are so boring that we end 
up slamming away on the RETURN key or some other key until we cream 
an entry and have to start all over. The following subroutine is guaranteed 


to get your attention: 


10 


20 
30 


100 


200 


TEXT : HOME :V = 22:H$ = " HIT ANY KEY 
TO CONTINUE -> ":L$ = CHR$ €93):R$ = 
CHR$ €91):F = 40:5 = 70:FF = 30 

FOR I = F TO 1 STEP - 2: GOSUB 100: 
NEXT I: GOSUB 300 

FOR I = 1 TO LEN CH$): FOR N = 1 TO 
50: NEXT N: GOSUB 200: NORMAL : NEXT 
WAIT - 16384,128: POKE - 16368,0: HOME 
: TEXT : PRINT “THANK YOU" : END 

VTAB V: HTAB I: PRINT L$: FOR J = 1 TO 
S: NEXT J: УТАВ V: НТАВ I: PRINT " ''; 
VTAB V: HTAB I - 1: PRINT R$: FOR K = 
1 TO S: NEXT : VTAB V: HTAB I - 1: 
PRINT " ": RETURN 

НТАВ I: VTAB V: PRINT L$: FOR R = 1 TO 
FF: NEXT R: HTAB I: VTAB V: PRINT R$: 
FOR L = 1 TO FF: NEXT L: HTAB I: VTAB 
V: INVERSE : PRINT MIDS CH$,1,1)5: 
RETURN 
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300 BUMP = - 16336: FOR I = 1 TO F:BAP = 
PEEK (BUMP): NEXT : RETURN 


(Don't RUN it more than once. It’s addictive.) 


ELIMINATE THE NEGATIVE 


You often see memory locations expressed as negative numbers. Why? 
Because a bunch of guys sat around in a room one day and decided to 
subtract 65536 from certain numbers that are larger than 32767. Good 
grief! So if you see a negative number (as in CALL -958), you can add 
65536 to it and learn its true identity (as in CALL 64578). 


?POP WITHOUT GOSUB ERROR 


POP is an Applesoft command to be used when you do a GOSUB but then 
decide not to RETURN. Without POP, things may work all right for a 
while, but sooner or later you're going to get an ‘“?0UT OF MEMORY"' 
error, as in— 


10 PRINT X; " SUIT";: GOSUB 50 
50 PRINT "CASE ": X = X + 1 
60 GOTO 10 


When X reaches a value of 24, you’ll get an error message. Line 60 should 
read: 


60 POP : GOTO 10 


If a program encounters a POP when no GOSUB has been executed, 
you will get a ‘?КЕТОКМ WITHOUT GOSUP"' error message. Not quite 
correct, but you get the message. 
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ULTRA-POP 


Someone once told us (we think it was our Pop) that it is poor program- 
ming practice to exit a subroutine with a POP statement. Instead, you 
should always exit properly via a RETURN. And never jump out of a 
FOR-NEXT loop without finishing the loop first. 

Well, no one around here programs by the book (if they can help it). 
Heck, we get so deep into dodeca-nested loops and subsubroutines that we 
wouldn’t know how many POPs to use if we had to! Here’s a CALL (other 
than “Не-Ірр!””) that will bail you out of all kinds of trouble: 


CALL 54915 


This big command ‘‘clears the stack” of all un- NEXTed FORs and all 
un-RETURNed GOSUBs. This program proves it: 


100 REM CALL 54915 

120 GOSUB 500 

500 GOSUB 1000 

1000 N = N + 1 : HTAB 1 : PRINT N; 
1010 GET A$ 

1020 GOTO 100 


RUN it and press any key a bunch of times; you won't be able to get the 
counter above 12. Remove the word REM from line 100 so it reads “100 


CALL 54915” and RUN again! It may be poor programming practice, but 
it works! 


PROGRAMMERS JUST WANNA HAVE FUN 


Remember these for your repertoire of homilies: 


1. Structured programming is a means to an end, not an end in 
itself. 
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2. If it RUNS, who cares? 

3. If the manual says you can't do it, and you do it, who are you 
going to believe—your eyes or the manual? 

4. People are smarter than computers, but computers are smarter 
than programmers. 


DEL 10 


The foregoing statement won't work in a program. DEL needs a range of 
lines. What will work is DEL 10,10. All programs screech (silently) to a 
halt with a DEL statement, so make it the last one in your program. 


SUPER DEL 


Sometimes you may want a program to delete its first few lines, especially 
if those lines BLOAD a file and you don’t need it BLOADed the next time 
you RUN it. The DEL command will work in a program, but as we said 
the program stops right there. So forget DEL. Instead, why not have your 
program change the start of the program pointer? You can do this ‘‘on the 
Пу,” telling your Apple that the third line (or any line) of your program is 
now the first line (an Apple will believe anything). Type this program, 
SAVE it, RUN it, and finally LIST it. The first two lines, which could be 
BLOADers, will disappear! To get them back, do two POKEs—POKE 
103,1 and POKE 104,8. 


10 REM THIS IS LINE 10. 

20 REM THIS IS LINE 20. 

30 LOC = PEEK (1212 + РЕЕКС122) + 256 + 1 
POKE 103,L0C - INT CLOC/256) » 256 
POKE 104, INT CLOC/ 256) 
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?=PRINT 


Applesoft thinks ? means PRINT. Try ?2 +2. If you use ? in a program 
and LIST it, the ?’s will be converted to PRINTs! 


“QUOTE 


Applesoft doesn’t require an end quote mark in most cases. Try PRINT 
"HELP. (Think of the time you'll save!) 


A PRINT-USING GOSUB 


Applesoft loves to abbreviate numbers, quite a pain in the chips when 
you're working with dollars and cents: $3.30 will print as $3.3 and $3.00 
will print as $3. And to make matters worse, $3.2754 will print as 
$3.2754. PRINT-USING is a useful command found on other computers. 
(We think; we just found out that there are other computers.) This com- 
mand lets you specify ahead of time the decimal format for your screen 
and printer printouts. Well, the best we can do for you is this little 
GOSUB that rounds numbers to the nearest cent. Position the cursor where 
you want it (for example VTAB 20 : HTAB 19), set the variable AMT 
equal to the number you want printed, and GOSUB 60000. The number 
will be rounded to the nearest penny and printed for you in dollars-and- 
cents format. 


5 TEXT : HOME : PRINT “PRINT-USING 


10 SUM = 1.234: GOSUB 60000 
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20 SUM = 12.345: GOSUB 60000 
30 SUM = 123.456: GOSUB 60000 
40 SUM = 1234.567: GOSUB 60000 
50 SUM = 12345.678: GOSUB 60000 


60 SUM = 123456.789: GOSUB 60000 
70 PRINT : PRINT "$ COLUMN = '";HT: PRINT 
"# WIDTH = “;3WD;: END 


60000 HT = 20: REM "$" COLUMN 
60010 WD = 10: REM #WIDTH 
60015 S$ = " ": REM 12 SPACES 


60020 SUM = SUM + .005: IF SUM < = ‚005 
THEN SUM = 0 

60030 SUMS = STR$ CSUM):L = LEN CSUM$): FOR 
CHR = L ТО 1 STEP - 1: IF MIDS CSUMS, 
CHR,1) < > "." THEN NEXT :SUM$ = SUM$ 
+ "SCHR = L + 1 

60040 SUM$ = SUM$ + "00":50М$ = LEFT$ 
CSUM$ ,CHR + 2):SUM$ = RIGHTS 
S$ + SUM$,WD) 

60050 НТАВ HT: PRINT "%";50М%: RETURN 


WAS THAT -16633 OR -16363 OR -1633 ...? 


All of those negative PEEK and POKE numbers will be easier to remem- 
ber if you set a variable equal to one of them early in a program. Say, Q 
= -16384. Then, those hard to remember numbers become Q, Q+ 16, 
О +48, etc. Much easier on your little gray ROM chips. 


THE SECRET TO BETTER PROGRAMMING. ... 


Reprogram. 
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ON GOTO 


If you list BYTEZAP.PRO, you'll notice a lot of ON ... GOTO 
statements. This trick often allows more statements per line. Take this 


example . 


10 
20 


100 
200 
300 
400 


. . please: 


X = 3 : REM MULTIPLE BRANCHES 

ON X = 214 GOTO 100: ON X = 21982 GOTO 
200: ON X = 3 GOTO 300: ON X = 12.7 
GOTO 400 END 

PRINT "CRABGRASS": END 

PRINT "RANUNCULUS": END 

PRINT "UNCLE SCRODGE": END 

PRINT "BURMA SHAVE": END 


If we had used IFs instead of ONs in line 20, it would have had to be 
broken into four program lines. Play around with this—it's almost as good 
as IF-THEN-ELSE . . . but not quite. 


CHAPTER 5 


MEMORY 


AND SPEED 


IF CITY! 


Applesoft sometimes limits you in your use of IF statements. Thus, if an 
IF statement is not true, Applesoft jumps to the next line number. Not true 
if you're dealing with certain types of information! Instead of 


10 INPUT A 

20 IF A = 0 THEN POKE 50,63 : REM INVERSE 
30 IF A>0 THEN POKE 50,255 : REM NORMAL 
40 PRINT " BEAGLE “ 


you could say 


10 INPUT A: POKE 50,63 + 192 * CA>0) 
PRINT " BEAGLE " 


The IF statement here is really inside the parentheses which takes on a 
value of 1 or 0 depending on the truth of А>0. IF А>0 then the POKE 
becomes POKE 50, (63+ 192) or POKE 50,255 (normal). If not true, it's 
POKE 50,63 (inverse), and the rest of the line is still read! A very simple 
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example, but some things can be accomplished (like speeding up programs 
and saving space) using this trick. 


FLUSH RIGHT! 


Using the preceding method, flush right numbers are easy. Watch: 


10 FOR X = 5 TO 1055 STEP 50 

20 PRINT SPCC €X<1000); SPCCX<100); SPC 
CX«102)2;X 

30 NEXT X 


MOST PROGRAMMERS WANT... 


Most programmers want more speed in their programs and want their 
programs to occupy less memory. So, most programmers should abide by 
these tips: 


Speed Makers 


1. Plan ahead to program efficiently. Write your program down in 
step-by-step plain English before you attack the keyboard. 
2. Assign variables to frequently used constants. Don't use FOR 
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X = 12 TO 72. Instead LET T= 12 and LET S — 72, and use FOR 
X = T TO S. The variables assigned values most early in a 
program seem to execute fastest. 

Use NEXT instead of NEXT X. 

Place frequently called lines early in your program. 

If your variables are going to be manipulated mathematically, use 
floating point variables instead of integer variables. Since all 
math is done in FP the variables have to be changed from integer 
to FP and that takes time. 


eS 


Memory Savers 


1. Renumber your program by 175 starting with line 1. Applesoft 
stores line numbers as strings, so the fewer digits in your GOTOs 
and GOSUBs, the less memory used. 

2. Change all variable names to one character. Same reason as 
before. 

3. DIM your arrays as small as possible, and don't waste the zeroth 
array. 

4. Delete all REMs when you are through with them. SAVE a 
REMmed version if you want, and use the REMless one. 

S. Delete useless words— change each THEN GOTO to a THEN or 
a GOTO. Don't use LET or END and don't use file names after 
CLOSE. 

6. Use integer arrays if possible. Integer variables take less room 
than real variables. 


Load a small test program. Then type: 


PRINT FRECO) 
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This will tell you how many bytes of memory are available. Now make 
one of the changes mentioned in the preceding list and PRINT ЕКЕ(0) 
again. The number will be slightly higher, indicating more free memory 
is available. 


MEM SAVER 


To draw a line of hyphens on the text screen, you can use: 


This works fine, of course, but it uses 43 bytes of memory every time you 
do it. No problem if you've got memory to burn. The following line does 
the same job and uses just 15 bytes: 


10 FOR X = 1 TO 40 : PRINT "-"; : NEXT 


Remember, if you need to draw this line several times in the same 
program, set it up as a subroutine. Just tack a “: RETURN” on the end. 
The cost? Only 2 more bytes; 1 for the colon and one for the RETURN. 


REM OVE 


If you're removing REMs from your program to save memory, you might 
want to instead replace each statement with a single colon. That way, if 
you have any GOTOs to your REM lines, things will still function 
normally. 
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SPACE SAVER #65535: 


These two programs do the same thing. One uses less memory— 


10 IF A«0 THEN B=60 
20 IF A>0 THEN В=77 


10 B-77: IF А<0 THEN В=60 
20 Cnot necessary) 


CLEARMEM 


To really clear memory and reestablish normal pointers, you can always 
reboot. In DOS 3.3 you could simply type FP. In ProDOS you could type 
**-BASIC.SYSTEM,’’ but Control-Apple-Reset is easier to spell. 


CHAPTER 6 


LIST TIPS 


DENUMBER 


This program will ruin itself, so SAVE before you RUN. 


10 HOME 

20 PRINT "THE PROBLEM WITH THIS PROGRAM IS 
THAT" 

30 PRINT “AFTER YOU RUN IT, IT WILL NEVER 
BE THE" 


40 PRINT “SAME AGAIN." 
50 POKE 2051,50: POKE 2057,40: POKE 2148, 
20: POKE 2167,10: LIST 


REM EXPANDER 


Watch this! A RUN changes the A's (234 of them, please) to all kinds of 
rude error messages. A GOTO 100 repairs everything. 
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10 REM ААААААААААААААААААААААААААААААААААА 
ААААААААААААААААААААААААААААААААААА 
ААААААААААААААААААААААААААААААААААА 
ААААААААААААААААААААААААААААААААААА 
ААААААААААААААААААААААААААААААААААА 
AAAAAAAAAAA 

20 N = 234 

30 FOR І = 2054 TO 2287:N = Н +1: IF N > 

251 THEN N = 235 

40 POKE I,N: NEXT : LIST : END 

100 REM GOTO 100 TO FIX. 

110 FOR I = 2054 TO 2287: POKE I, ASC 

("А"); NEXT : LIST : END 
REMLESS REMS 


You can leave the word REM out of unencountered REM statements, but 
your Apple will parse the heck out of your remark. Type this in; it RUNS 
fine but LISTS funny. 


0 GOTO 2 

1 THIS IS LINE ONE, A SIMPLE STATEMENT, 
NOTHING MORE. 

e END 


QUOTE REM 


To keep your Apple from parsing your listing with REMless REMs, you 
can put a quote mark before your REMless REM. Pay attention: 
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999 END 


1000 "xs*s*asxsxxkcxuxeskxktkkxxEtEtkkbsthet 


1010 "THIS PROGRAM WAS PRODUCED AND 
1020 “DIRECTED BY 
1030 "YOURS TRULY 


1040 "жете ааа жж ка жө 


Go ahead and LIST it. There'll be no parsing, and since the program stops 
at line 999, it won't gag on the bad lines. 


40-COLUMN FIXER 


Extensive research by our Extensive Research Department shows that more 
people need to know this text tip than any other, so pass it around. To 
align text characters when they are printed on the screen, simply align them 
in the listing when you type. For example, this 


10 PRINT "PROGRESS REPORT FOR H.H.LUMPY 
== MONEY IN MONEY GUT BILL 
5 DUE $ 4.00 $44444.00 * 4 


кешелі lente left margin alignment. 
will appear like this when RUN: 


PROGRESS REPORT FOR H.H.LUMPY——- 
MONEY IN MONEY OUT BILLS DUE 
$ 4.00 $44444.00 $ 444.00 


This alignment will take place only when you RUN a PRINT state- 
ment, not when you LIST it. 
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80-COLUMN FIXER 


This works just like the 40-column fixer except you have 80 columns. 
Remember where you got this tip. 


SHOWY REMS 


INVERSE REM STATEMENTS! 


We sure wish we knew how to make inverse REM statements, but we 
don’t. However, here is a shortcut to making your REM statements show 
up better. 

First POKE 33,32 (Integer) or POKE 33,28 (Applesoft). Then your 
REM statements will LIST formatted the way you type them (POKE 33,40 
or Reset before LISTing). We like to underline our REMs with hyphens, 
like so: 


LIST 
970 INPUT X 
980 IF X = 0 THEN PRINT "FIZZLE" 
990 REM 
EXPLOSION: 


1000 IF X = 86 THEN PRINT "КА BOOM!" 


Experiment, and you’ll see what we mean. 


STEP LIST 


During a long listing on an Apple II+ , hold the control key and the 5 key 
with one hand and the Repeat key with the other hand. You can slow your 
listing down this way. 
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Note: The preceding tip has been classified as worthless by the 
Beagle Bros staff. Please tear it out of your book right away. Thank you. 


REM MAKER 


Here's the easiest way we know to make REMs show up well—type: 


100 REM <Control-J> <Control-J> THIS IS А 
REMARK <Control-J> 


Now you have some air above and below your REM, making it easier 
to find in a listing. 


LIST PREVENTION 


POKE 2049,1 will make LIST list your first line repeatedly, because you 
have told the Apple that the next line starts at $801 instead of $8-something 
else. Try it in a boot program. 


CONTROL-AT 


Remember how a zero ends a program line? You can end one anywhere 
you want by POKEing a zero (Control-@) into the middle of it. Experiment 
with LISTing and RUNning after you have done your POKEing. 
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INVERSE REM STATEMENTS AT LAST! 


After minutes of extensive research, our Uncle Louie finally came up with 
his finest achievement, inverse REM statements (flashing if you want!!)! 
Maybe not as practical as your normal kind of REM, but they sure do 
show up! First, you have to key in the following program: 


10 DATA 201,141, 240, 21 

20 DATA 234, 234,234, 234 

30 DATA 201, 128,144, 13,201, 160,176 ,9,72, 
132,53,56,233 

40 DATA 128 : REM 64=FLASH, O=NORMAL 

50 DATA 76,249,253,76,240,253 

60 FOR X = 768 TO 795: REM $300 TO $31B 

70 READ N: POKE X,N: NEXT 

80 POKE 54,0: РОКЕ 55,3 

90 CALL 1002: REM RESET OR PR#0 KILLS THE 
EFFECT 


Now, RUN the program and key in the following: 


5000 REM «Сопіго1-А» «space» 
<Control-T> <Control-E> <Control-S> 
<Control-T> 


Your control characters show up as inverse, but you’ll have trouble with 
Control-M, -U, or -X since they do special things (e.g., Control-M is a 
carriage return). Likewise, Control-A and Control-S won’t work if you 
have GPLE in memory. Reset ог РКО will get you out. This is a good 
way to hide your name or secret info in a program! Thanks, Uncle Louie. 


SPLIT-SCREEN TEST 


POKE 34,5 : LIST <RETURN> will freeze the top five lines on the 
screen as you LIST. Тһе 5 can be any number, 1-23, of course. Very 
handy in many circumstances. Reset will normalize things. 
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TAKE OUT THE GARBAGE! 


Got some Integer lines numbered greater than 32767 that you'd like to 
delete? Or eight pounds of unwanted HIMEMs at the end of a program? 
Try this to remove them. The line number should be just above the highest 
line you want to keep. 


32767 POKE 76, PEEK (220) : РОКЕ 77, PEEK 
(221) : END : REM THIS IS INTEGER 
BASIC, NOT APPLESOFT. 


Now, GOTO 32767. 

To remove garbage from the beginning of a program, the following 
line might work, depending on your garbage. Make the line number one 
number less than your first good program line number. 


50 РОКЕ 202, PEEK (220) : РОКЕ 203, PEEK 
(221) : END : THIS IS INTEGER BASIC, NOT 
APPLESOFT. 


Then GOTO 50. Good luck! 
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TOO-LONG TOKENS 


Long Applesoft token words like INVERSE and NORMAL fail to produce 
a carriage return when they appear near the right margin of listings—a real 
pain when you're printing listings. 


LINE TRACER 


Anytime you want to know what line is operating in a program, put a 
PRINT PEEK(117) + PEEK (118)*256. To find out on what line an 
ONERR error was encountered, PRINT PEEK (218) + PEEK (219)*256. 
This program will demonstrate: 


10 REM 


eee тез ee с> ға бэ eS 
be ee) 


ONERR GOTO 5000 

PRINT "THIS IS LINE "5; PEEK €117) + 

256 * PEEK С118);".": FOR I = 1 ТО 

500: NEXT 

202 PRINT “THIS IS LINE "; PEEK €117) + 
256 * PEEK (11829;".": FOR I = 1 TO 
500: NEXT 

768 PRINT “THIS IS LINE "; PEEK С117) + 
256 * PEEK €118);".": FOR I = 1 TO 
S00: NEXT : GOTO 14 

5000 PRINT "PROGRAM STOPPED AT LINE "; 

PEEK (218) + 256 * PEEK €C2192;".": END 


> > 
> (0) 
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PROGRAM DIVIDERS 


А **:REM<Control-J><Control-J>’’ at the end of a program line will 
put a visual break in a listing at that point. If the line ends in an END, a 
STOP, a RETURN, an ONERR statement, or a GOTO (the exception is 
ОМ... GOTO), you don't even need the REM. In some cases you can 
even omit the colon. 


INVISIBLE PRINTER 


If you have no printer connected to your Apple II, П+, or //e, and you 
type PR#1, your system will hang, forcing you to Reset. An Apple //c, 
however, seems to think there is an invisible printer attached. Type PR £1 
and then LIST. A bit later, after your listing is beamed into outer space, 
you'll get your cursor back. 


COLUMN-2 LISTINGS 


The Apple //c and the enhanced //e start program listings at the second 
text column instead of the first. This is probably to facilitate easier Escape 
editing, since the second column is where you’ll usually find your Applesoft 
cursor (the prompt character occupies HTAB 1). You can Escape I or 
Escape up-arrow the cursor to the line number without having to move it 
one column to the left prior to tracing. Phooey on this kind of editing 
anyway. GPLE is the only way to fly! 
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CONTROL-L PAGE ADVANCE 


The only thing that seems to be consistent about printers is their use of 
CHR$(12) <Control-L> to activate a form feed (advance to the start of 
the next page). Use it to your advantage when making program listings: 


Align your paper at the start of a new page. 

Turn your printer power switch on (or off, then back on). This 
should establish the start-of-page position in your printer's little 
dot-matrix brain. (Some printers have а ''Set Top of Page" 
switch for this.) 

Type PRZ1 «RETURN? to connect your printer. 

Type LIST <RETURN>. Wait while your program is listed. 
Type Control-L <RETURN>. Your paper should advance to the 
next top-of-page. 

Type PR#0 to disconnect. 

Tear off your listing and start over because you ripped the corner 
off the last page. 


POST-LIST FIX 


If you are stopping and starting a program listing with Control-S, and you 
reach the end of the listing, your last Control-S may accidentally become 
the first character of the next command you type, causing a ''?Syntax 
Error.” One solution is to hit a backspace or two before doing any typing. 


CHAPTER 7 


TEXT TIPS 


VERTI-CALC 


Actually, this program is much too valuable to be given away like this, but 
here goes, anyway: 


S TEXT : HOME : ONERR GOTO 15 

10 FOR I = 1 TO 20: POKE 32,2 * I - 1: POKE 
33,1: HOME : READ A$: PRINT A$: NEXT I: 
TEXT : VTAB 23: END 

15 POKE 216,0: RESTORE : ONERR GOTO 15 

16 RESUME 

20 DATA HAVE YOU EVER NEEDED,TO PRINT YOUR 
TEXT IN,VERTICAL COLUMNS,INSTEAD OF, 
HORIZONTAL ONES?,NO?,ME NEITHER! 

READ THIS IMMEDIATELY 


You may have noticed that you can’t normally do an immediate-mode 
READ command. (‘‘Immediate’’ means without a line number.) That's 
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only because DOS thinks you mean 


“READ” as in *'Read a text file," instead poo 
of “READ” as in “Read data.” To fool ARCA feces 
DOS, type :READ (notice the colon) in- SEDES ды 


stead of READ. DOS commands are only 
recognized at the far left of the screen. The 
colon could be anything legal, like a PRINT 
command—anything to separate READ 
from the left margin. For a quick test, 
type a program line: 


10 DATA ONE, TWO, THREE, SEVEN 
Now type: 


:READ A$ : PRINT A$ 


Do it a few times. It works! 


PAGE-2 HELP PAGE 


This program installs a '*help page" on text page 2 and lets you view it 
whenever you want, by typing Control-I (for ‘‘Info’’) or pressing the TAB 
key on your Apple //e or //c. It’s up to you to expand this into a full- 
blown word processor. Call us when you’re finished. 


1 IF PEEK 1032 + PEEK 61042 ж 256 < > 
30/3 THEN РПКЕ 103,1: PUKE 104,72: 
POKE 3072,0: PRINT CHR$ €4)™"RUN HELP 


SCREEN" 
10 AS = "TAB"; LE PEEK С = 637) € 255 
THEN X$ = “CTRL-I" 


15 ТЕХТ: "НОМЕ 

20 PRINT "HELP PAGE": PRINT : PRINT X$;" 
= HELP": PRINT "CUNTROL-G = QUIT": FOR 
1 = 3 TD Ss PRINT “COMMAND #*% 515" xit; 
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NEXT : TEXT : PRINT “<ANY KEY» TO 
CONTINUE";: REM PRINT HELP PAGE 

50 POKE 768,216: POKE 769,160: POKE 
770,0: POKE 771,76: POKE 772,44: POKE 
773,254: POKE 60,0: POKE 61,4: POKE 
62,255: POKE 63,7: POKE 66,0: POKE 
67,8: CALL 768: REM MOVE PG.1 TO PG.2 

80 HOME : PRINT "TYPE ON THIS PAGE ("X$" 
FOR INFO)": PRINT 

100 GET A$: IF A$ = CHR$ (9) THEN GOSUB 
2000: GOTO 100 

105 IF A$ = CHR$ C17) THEN END : REM QUIT 
IF CONTROL -G 

110 PRINT A$;: GOTO 100 

2000 POKE - 16299,0: GET A$: POKE - 
16300,0: RETURN 


Warning: Save this program as “НЕГР SCREEN” before уои RUN 
it—use your program name in line 1. These commands move the program 
above text page 2. 


INVERSE TYPER! 


Here’s an easy way to type directly to the screen in inverse (or flash): 


10 INVERSE : REM OR FLASH 
20 INPUT A$ : PRINT A$;: GOTO 20 


But you have to RUN the program and remain in the program for it to 
work. RUN the following program and you will get inverse alphabetical 
characters after you are out of the program! 


10 DATA 201,141,240,21 

20 DATA 234, 234, 234,234 

30 DATA 201, 192,144, 13,201, 224, 176,9, 72, 
132,53,56,233 

40 DATA 192 : REM 128 FOR FLASH 

50 DATA 76,249,253,76,240,253 

60 FOR X = 768 TU 795: REM $300 TO $31B 
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70 READ N: POKE X,N: NEXT 

80 POKE 54,0: POKE 55,3 

90 CALL 1002: REM RESET OR PR#0 CANCELS 
THE EFFECT 


MORE QUOTE MARKS 


Applesoft— 


10 HOME 
20 PRINT "SHE SAID, "; CHR$C342; "HELLO!''; 
CHR$C34) 


Integer— 


10 CALL -936 
20 PRINT "SHE SAID, "HELLO!" " : END 


No tricks in the Applesoft example. The illegal extra quote marks in the 
Integer program are actually lowercase B's! Without a lowercase adapter, 
they will appear as quote marks on the screen. (This is for you old-timers. 
Apple //e and //c owners don't know what they're missing!!!) 


BETTER INVERSE 


Inverse titles look better if you frame them with spaces. Try it. 


10 HOME: INVERSE: HTAB 17: PRINT “HEADLINE” 
20 VTAB 12: НТАВ 16: PRINT " HEADLINE " 
NORMAL 


If you've got room, you can really frame a title— 
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10 HOME : INVERSE : HTAB 18: PRINT SPCC7) 
£0 VIAB аз HTAB 18: PRIMF-"-TIILE " 
30 НТАВ 18: PRINT SPCC7) : NORMAL 


CATALOGDISK 
SAVEFILE 


ERASE DISK 


INITIALIZE DISK 
DESTROY DISK 
QUIT 


INVERSE CURSOR BAR 


A lot of software uses an ‘‘inverse bar’’ to select menu items. Pressing an 
arrow key usually moves the bar, and Return makes the selection. Here's 
how it's done from Applesoft: 


10 TEXT: HOME: NORMAL: V=1 

20 FOR N=1 TO 5: READ A$CND: PRINT A$CN): 
NEXT: DATA ONE, TWO, THREE, FOUR, FIVE 

30 INVERSE: VTAB V: PRINT A$CV) 

40 K=PEEKC-16384): IF К < 128 THEN 40 

50 POKE-16368,0: NORMAL: VTAB V: PRINT 
A$CV): IF K=141 THEN VTAB 10: PRINT “YOU 


SELECTED: ЖУА" 13 END 

60 IF K=136 OR K=139 THEN V=V-1: IF V=0 
THEN У-5 

70 ІҒ.К»149 ПЕ K=138 THEN VsV*«1: IF V6 
THEN V=1 

80 GOTO 30 


The K values (lines 60 and 70) of 136 and 139 are the Left and Up arrows. 
149 and 138 are Right and Down. 
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YOU CAN QS$OTE THIS 


Here's another way to get quote marks in a PRINT statement. 


10 Q$-CHR$C34) 
20 PRINT “THIS IS ";Q$;"ILLEGAL.";Q$ 


Did you know that semicolons are often unnecessary in spite of what 
your mother told you? Line 20 could be: 


20 PRINT “THIS IS "“Q$"ILLEGAL."Q$ 


IF INVERSE THEN GOSUB 99 


The preceding statement won’t work. What will work is: 


IF PEEKCS0)=63 THEN GOSUB 99 


To find out the format of the characters about to be output to the screen, 
PEEK at location 50 by typing PRINT PEEK(50). A 63 answer means 
inverse; 255 means normal; 127 is flash. You can also create the format 
you want by POKEing in these numbers (although simple commands do 
the same thing)—POKE 50,63 will create inverse type and POKE 50,255 
will create normal. POKE 50,127 will flash alphabetical characters. You'll 
have to add a POKE 243,64 to flash numbers and other characters. 

If you want to get lowercase inverse on your Apple //e or //c, you 
have to first 


POKE 49167,0 


and then POKE in your screen addresses (beginning at 1024) the values 
between 97 and 122. To return to the normal character set: 


POKE 49166,0 
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And you didn't think you could get inverse lowercase! 


TEXT-SCREEN FORMAT 


In case you aren't clear about the layout of your text screen, RUN this 
program: 


==> ғә m т ғә m m 
=ош чоо о ш ш шош о шош EIEEE 


20 HOME : NORMAL : FOR I = 1 TO 39:А$ = A$ 
+ CHR$ €95): NEXT : FOR I = 1 TO 24: 
VTAB 1 : HTABC1): PRINT A$;: NEXT : 
INVERSE : FOR X = 2 TO 23: FUR Y = 5 TO 
40 STEP 5: VTAB X: HTAB Y: PRINT LEFT$ 
(А$,1);: NEXT : NEXT 

60 FOR Y = 1 TO 24 STEP 23: FOR I = 5 TO 35 
+ 5 * CY = 1) STEP 5: VTAB Y: НТАВ I - 
(ГІ > 9): PRINT I;: NEXT : NEXT : NORMAL 

FOR І = 1 ТО 24: VTAB I: НТАВ 1: PRINT 
I;: NEXT : POKE 2038,52: POKE 2039,48: 
INVERSE : WAIT - 16384,128: NORMAL 


COLUMN POKER 


To make a flush-left column in the middle of the screen, you can do this: 


10 HOME : VTAB 10: НТАВ 15: PRINT “А 
STITCH": НТАВ 15: PRINT "IN TIME": HTAB 
15: PRINT "IS WORTH": HTAB 15: PRINT 
"THO IN": HTAB 15: PRINT "THE BUSH" 


But why not POKE locations 32 and 33 and do this? 
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10 VTAB 10: HTAB 15:M$ = CHR$ (13): POKE 
32,14: POKE 33,26: PRINT "А STITCH"MS$'" IN 
ТІМЕ"М%"15 WORTH"MS"TWO IN''M$'THE 
BUSH.": TEXT 


The second method takes less typing time and less memory. Just 
POKE 32 with a number one less than the column number, and POKE 33 
with 40 minus PEEK(32). You can sometimes omit the POKE at 33 if you 
are not going to print off the screen (causing wrap-around). If you do, and 
PEEK(32) plus PEEK(33) totals more than 40 (with a 40-column screen), 
you can: 


a. Zap your program. 
b. Make your drive go “ВГАА-ААТТ!” 
c. Cause wrap-around to the wrong line. 
d. Prove us wrong. 

LOWERCASE EQUIVALENTS 


In the old days before Apples were born with lowercase, you had to be 
careful in writing programs with lowercase on the text screen. This is 
because it would show up as garbage on Apples without lowercase adapt- 
ers. To see the equivalent characters that others might see when a program 
says PRINT “НеШо,” type: 


10 INVERSE : PRINT "Hello" 


In this case, you will be presented with H%,,/ (in inverse). That's what a 
nonlowercase Apple will produce even in normal mode. 

If you are about to add lowercase hardware to your old Apple, shop 
around. Have your dealer show you a comparison of the typestyles avail- 
able. (Let's face it, though, with the built-in lowercase on new Apples, 
dealers are not going to have an abundant choice of lowercase adapters.) A 
couple of the popular ones look like they were designed by engineers, not 
typographers. Poorly designed (ugly) text-screen type can really slow you 
down, especially if you are doing word processing. 
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TEXT OR HI-RES 


If your Apple monitor is a color TV, you can tell if the screen text you are 
reading is hi-res or text by looking for little color glitches between vertical 
strokes on letters such as m’s. If you see them, it’s hi-res. By the way, you 
won’t see small (normal size) color text on the Apple. There just aren’t 
enough dots available to do the job. 


SCREEN FORMULA 


We’ve been trying to come up with this one for years (or at least since last 
week)—it's the formula for converting HTAB and VTAB coordinates into 
the corresponding memory addresses. Let V equal the VTAB (1—24) and H 
equal the HTAB (1—40). To find the memory location, LOC, for the 
character in that screen position, use (are you ready?): 


LOC=128*V+H-(984*INTCCV-1)/8))+895 


Hey, it works! Now, to find what character is residing at VTAB V, 
HTAB H, you can PEEK at LOC and get its value, like so: 


PRINT PEEKCLOC) 
Or, you can POKE any character you want onto the screen with: 
POKE LOC,X 


(Rummage through the appendixes to find the chart for character values.) 


92 THE BIG TIP BOOK FOR THE APPLE II SERIES 


BSAVE TEXT 


Sure, you can BSAVE the text screen! Just type BSAVE TEXTTEST, 
A$400,L$3FF. Anytime you want it back, type ‘‘BLOAD TEXTTEST’’. 
Of course, any command you type to save the screen will appear when you 
BLOAD it. To prevent this, put the BSAVE statement as the last line in 
your text-printing program: 


PRINT CHR$C42;"BSAVE TEXTTEST,A$400,L$3FF" 


ERRORLESS ERRORS? 


Applesoft just loves to crash when you specify a number it can't handle. 
Try HPLOT 0,300 for example. You'll get an ‘‘?ILLEGAL QUANTITY” 
message because 300 is too large a number for a hi-res plot. Wouldn't it be 
nice sometimes if Applesoft just ignored an error instead of scolding you? 
Well, it seems to do just that with its MID$, LEFT$, and RIGHTS 
commands. Try this: 


10 AS="FISH" : FOR X = 1 TO 9 
20 PRINT Х;"."; (ЕСЕТ? CA$,X): NEXT 


Theoretically, the program should bomb when X becomes greater 
than the length of A$, which is 4. But it doesn't. For example, when X is 
7, line 20 asks the computer to print the left 7 letters of a 4-letter word. 
MID$ and RIGHTS seem to work the same way, and I don't mind at all; 
it’s one detail I don’t have to look for when debugging. 
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BETCHA CAN'T JUST RUN IT ONCE 


We found the following program to be one of the all-time dumb programs. 
However, no matter how hard we try, we can't just RUN it once. 


5 TEXT : HOME 
10 POKE 2000,157: POKE 2001,96 


It’s a great HELLO program for disks. 


ANOTHER ONE-BYTE SAVER 


Instead of VTAB 5: HTAB 1: PRINT IT, use VTAB 4: PRINT: PRINT 
IT. You'll save one big byte (or two if you're further down the screen). 
This is a good 80-column trick that overcomes an HTAB bug in the older 
Пе”. 


CHAPTER 8 


A FEW BUGS 


This is the Apple bug department—we don't explain 'em; we just find 


'em! 


SQUARE BUG 


PRINT 7 * 7 and PRINT 7 ^ 2 will produce different answers!! Watch 


this... . 


10 
20 
30 
40 
50 
60 
70 


TEXT : HOME 

PRINT “NUMBER SQUARED CUBED" 
PRINT "------ ------- ----- " 
POKE 34,2 


FOR X = 0 TO 255: PRINT X; 
HTAB 9: PRINT X ^2; 
HTAB 21: PRINT X ^ 3: NEXT X 
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GET BUG 


Turn off DOS by booting with no disk and hitting Reset; then type: 
10 GET G$: VsVALCG$) : PRINT V 


RUN and enter a digit, 1-9, for G$. Look at the answer! Inserting a 
G$ = G$ after GET G$ seems to clear things up. The explanation for this is 
really boring. Reboot to continue. 


WHY DOES THIS DO THIS? 


10 HOME 

20 SPEED- 200 

30 FOR М = 0 TO 1 STEP .001 
40 PRINT "М = "ІН 

50 NEXT N 

60 SPEED= 255 


NUMBER BUGS 


We really hate bugs like this; programming is hard enough without 
Applesoft’s casual attitude with numbers. What answer does your Apple 
give for this? 


PRINT INTC14.4 * 100) 


It’s 1439, right? Heck, our $8 pocket calculator does better than that. (It 
plays a lousy game of Raster Blaster, though.) A better way to perform the 
calculation seems to be: 


N=14.4 * 100 : PRINT ІМТСМЭ 
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WHY DOES THIS DO THIS? 


2115Т 

10 REM WHY THIS? 

15 REM CINTEGER) 

20 CALL -936: GR 

30 COLOR» RND С16)+1 
40 N= RNDC1280) 

50 H=N MOD 32 

60 V=N/32 

70 PLOT Н,У 

80 GOTO 30 


SAY IT LIKE IT AIN’T 


"Path Not Found’’ is a dumb-looking error message, undoubtedly in- 
vented to confuse beginners. So is “Мо Buffers Available,” but we won't 


mention that here. 


BAH, NUMBUG! 


Most sorters we know of will rank the numbers 3, 20, and 100 in reverse 
order—100-20-3— because ASCII-wise that is correct. (Likewise, the words 
"C," “ВО,” and “ALL” alphabetize ALL-BO-C.) To support proper 
numeric sorting, you should start short numbers with spaces or zeros so 
that all numbers in the list have the same length. Our example numbers 


JLIST 


10 
20 
30 
40 
50 


60 


would then sort properly—003-020-100. 


REM AND THIS? 
REM CAPPLESOFT) 
FOR Х = 1 TO 255 
PRINT CHRS$CX), 
REM BOMBS WITH 
COMMA, BUT NOT 
WITHOUT! 

NEXT X 


CHAPTER 9 


PROTECTION 


COPY STOPPERS (DOS 3.3 ONLY) 


People want to know how to protect their disks from copying, so they can 
quit their jobs and sell their computer programs. Well, quit your job 
anyway, but sooner or later everything will be copyable. But don't fret; the 
recording industry survives, doesn't it? As our friend R. W. T. Sector 
once said, ‘‘You can't stop all of the people from copying a disk all of the 
time, but you can slow some of the people down some of the time, 
depending on which copy program they are using.” With these wise words 
in mind, try this trick: 


a. Type: POKE 44033,16 
b. Puta new disk in your drive and INIT it 


What you have done is change the track of your catalog from 17 (normal) 
to 16. Other numbers, 3-15, will work too when POKEd into 44033. 


To transfer programs from a normal disk to your new disk: 


1. Boot a normal disk. 
2. LOAD a program from the disk. 
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Type POKE 44033,16 (assuming you used 16). 

Insert your protected disk, the one you INITed earlier. 
SAVE the program. 

Type POKE 44033,17 (that's normal). 

Insert your normal disk and continue with step 2. 


NANAY 


Remember, this little trick won't work with all copy programs, and it 
won't stop anyone who knows much about copy protection. Copy-protect 
schemes that work today are extremely complicated (and they won't work 
next August). 

Another way to slow down copiers is with our program DOS BOSS. It 
will change DOS 3.3 commands and error messages for you, and slow 
potential copiers down quite a bit. 

The great race is indeed on between the Copiers and the Copy 
Protectors. Progress is being made every day in both camps, and, if you 
ree-ealy think about it, there can only be one winner—the Copiers. 


SAVE PROTECTING YOUR PROGRAMS 


There are four basic methods a person will use for copying your software: 


LOAD and SAVE after booting your disk. 

LOAD and SAVE after booting another disk. 

Use the FID program from the System Master disk. 

Use a copy program to copy your entire disk, DOS and all. 


жы um 


Using DOS BOSS and the following trick, you can foil methods 1, 2, 
and 3. And method 4 has its drawbacks. The trick involves forcing the 
user to boot with your DOS. The effect is this: suppose Joe Blow wants to 
make an unauthorized copy of your fantastic new game. After trying 
method 1, he encounters а (beep!) “МОТ COPYABLE'' message. He then 
tries methods 2 and 3, both of which seem to work, but when he tries to 
RUN any program on the copied disk, it won't work and crashes into the 
monitor. Joe is getting discouraged. Perhaps he gives up, or perhaps he 


PROTECTION 99 


goes on to method 4 and copies your entire disk. This works fine, but 
every time he catalogs your disk, he gets your bold copyright message in 
the heading, reminding him of his dishonesty. Also, he has had to use up a 
whole disk with your darn personalized DOS on it. Joe is sorry he ever 
messed with you! 

The procedure to make all this happen goes like so: 


a. 
b. 


RUN DOS Boss. 

Change the READ command to SAVE and the SAVE command 
to KEEP. 

Replace the “МОТ DIRECT COMMAND” error message with 
"NOT COPYABLE.”’ 

Personalize your disk volume heading. Make it fifteen characters 
or less. 

Quit DOS Boss and type NEW <RETURN>. 

Type POKE 45995,96 <RETURN>. If you have 32K, make it 
29611,96. (Does anybody still have 32K?) 

Insert a new disk and type INIT HELLO <RETURN>. Your 
new personal DOS will be on this new disk. 

Copy your programs onto the new disk, using method 2 or 


Somewhere in each program, several times if you want, insert a 
CALL 45995, with a line number, like: 


1000 CALL 45995 


Or tuck this statement amid your existing program statements: 


1234 INPUT "0.К.?";А%: CALL 45995: IF 
А$="у" THEN PRINT "CONTINUE 
PROGRAM. . ." 


The CALL in step (i) is like a GOSUB to a machine-language routine 
at memory location 45995. The 96 you POKEd in with step (f) is actually 
a machine-language RETURN. If the 96 is encountered at 45995, nothing 
happens and your program continues, which is what you want. If any other 
number is encountered (meaning your disk was not booted), the program 
crashes! An equally good command, instead of CALL 45995, would be IF 
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PEEK(45995) <> 96 THEN NEW. This will erase the program if your 
disk wasn’t booted! 
Have fun! And let’s hope Joe Blow doesn’t have DOS BOSS! 


TRICK FILE NAMES 


One of the easiest ways to protect your program from a LOAD and SAVE 
is to put a control character in your file name. Have your HELLO program 
LOAD your important file. For example, with your program in memory, 


type: 
SAVE GAME<Control-E> 


If someone tries to LOAD GAME, they'll get a “ЕШЕ NOT FOUND" 
error. 


MYSTERY POKE 


Since your Apple has so many hidey holes, another protection scheme is to 
POKE a secret number into a location with a /oader program and then 
PEEK the location to see if the number is correct. For example: 


5 REM***«LOADER PROGRAM» аж 
10 POKE 768,65 
20 PRINT СНЕ$С4) "RUN MAIN PROGRAM" 


5 REM***MAIN PROGRAM 

10 IF PEEKC768) <> ASCC"A") THEN 60000 
20 REM PROGRAM STARTS HERE 

59999 END 
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60000 REM NERD TRAP #1 
60010 TEXT : HOME 

60020 PRINT "YOU NERD!!" 
60030 NEW 


Use a title for your loader program that will identify the program as 
yours. For instance, INIT your disk with the loader program using a name 
like: 


COPYRIGHT CC) 1988 BY IMA PROGRAMMER 


Most copiers don’t want that on their conscience, so they just go after the 
main program. When they RUN it, they get called a name, which serves 
them right. 


FOR WARPED MINDS 


Now if you really want to get a copier, here’s a rotten trick to be used with 
the **Mystery POKE'' method. 


59998 REM DOS 3.3 ONLY CNOT PRODOS) 

59999 END 

60000 REM NERD TRAP #2 

60010 PRINT “PLEASE REMOVE WRITE-PROTECT 
TABS" 

60020 PRINT "sHIT ANY KEY TO CONTINUE:"; 

60030 GET A$ : PRINT A$ 

60040 PRINT СНР%С4Ә"ІМІТ GOODBYE!"™,D1 

60050 PRINT CHRSC4)"INIT GOODBYE!",D2 

60050 NEW 


That will initialize disks in both drives, possibly zapping their copy 
program. They may be able to copy your program, but in the process, 
they'll pay dearly. 
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UNLISTABLE 


This next trick is a real gem to use in your loader program so that the 
mystery POKE cannot be seen. In fact, it's a gem for any LIST prevention. 
First, crank up GPLE and enter: 


10 REM 


Now, edit 10 with Control-E and once you're in the edit mode, press 
Control-O, Control-H eight times. (Eight inverse H's will appear on your 
screen.) Next, enter eight spaces and then Control-O, Control-M. Enter a 
message and another Control-M at the end of the message. Finally, enter 
Control-O, Control-D FP. Line 10 now looks like this: 


10 REM hhhhhhhh m UNLISTABLE! mdFP 
20 REM Ch=CONTROL-H, m=CONTROL-M, 
d=CONTROL-D) PROGRAM STARTS HERE 


Place the rest of your program after line 10. There’s no way your 
program can be LISTed from the beginning after line 10. You can RUN 
the program and LIST it beyond line 10, but it’s a killer if it ever smacks 
into that line. 

What happens is that the line number and REM are backed over by 
the Control-H’s and then ‘‘overlayed’’ with the eight spaces. The Control-M 
is a carriage return for your message below the invisible line number and 
REM. The Control-D acts as a DOS command to FP, which will erase 
your program in memory. If you're using ProDOS, use something other 
than FP. PR#6 is good. 


BANK ROBBER 


Here's a wholly irresponsible program. It shows how code breaking might 
look in a computer bank robbery. (Do not use this on your modem. You 
may generate the untender attention of the authorities!!) 


100 
1000 


2000 


2010 
3000 


3010 
4000 


4010 
5000 
5010 
6000 


6010 
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TEXT : HOME : RESTORE 


VV$ = " BANK TRANSFER PROGRAM ": HTAB 
20 - LEN CVV$) / 2: INVERSE : PRINT 
VV$: NORMAL 


FOR I = 1 TO 4: READ BANK$CIO: NEXT 
VTAB 5 

INPUT "YOUR NAME-> '";NA$: PRINT : 
PRINT 

INPUT "YOUR BANK-> ";YB$ 

HOME : VTAB 5 

FOR І = 1 TO 4: PRINT I;". “;BANKSCI): 
PRINT : NEXT 

PRINT : INVERSE : PRINT “WHICH BANK TO 
АССЕ55->";: GET AN: NORMAL : PRINT AN 
ON AN GOSUB 2000,3000,4000,5000 

DATA BANK OF KUWAIT,BANK OF IRAN, BANK 
OF AMERICA,BEAGLE BROS ACCOUNT 

HOME : VTAB 7: PRINT “THE BANK OF 
KUWAIT HAS FUNDS IN EXCESS": PRINT “OF 
$100 BILLION. YOU CAN TRANSFER UP": 
PRINT “TO $2.3 MILLION WITHOUT 
NOTICE." 

GOTO 9000 

HOME : УТАВ 7: PRINT “THE '";BANK$CAN2; 
" HAS FUNDS IN EXCESS": PRINT “OF $75 
BILLION. YOU CAN TRANSFER UP": PRINT 
“TO $3.3 MILLION WITHOUT NOTICE": 
PRINT "DUE TO THE CONFUSION IN 
LEADERSHIP." 

GOTO 9000 

HOME : VTAB 7: PRINT “THE '";BANK$CAN); 
" HAS FUNDS IN EXCESS": PRINT "OF $175 
BILLION. YOU CAN TRANSFER UP'': PRINT 
"TO $4.2 MILLION WITHOUT NOTICE": 
PRINT "SINCE THEY USE IBM PC'S FOR 
SECURITY." 

GOTO 9000 

POKE 33,50: LIST 

POKE - 16299,0 

HOME :MX$ - " BANK TRANSFER IN 
PROGRESS ": НТАВ 20 - LEN (MX$) / 2: 
FLASH : PRINT MX$: NORMAL : REM +++ 
TRANSFER ROUTINE *** 

УТАВ 16: PRINT NA$;" 'S': PRINT 
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6020 


6030 
6040 


6050 
6060 
6070 
6080 


6090 


6100 


7000 
7010 


7020 
7030 
7040 
7050 
7060 


7070 
7080 
7090 
7100 
7110 
7120 


7130 
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"ACCOUNT": PRINT “AT ":ҮВ$: PRINT 
INVERSE : PRINT "<<<<<<<": NORMAL 

ВК$ = BANK$CAN): VTAB 16: НТАВ (40) - 
LEN CBK$)9: PRINT BK$: PRINT : PRINT : 
PRINT :AR$ = ">>>>>>>>>>>": НТАВ (40) 
- LEN CAR$): INVERSE : PRINT AR$: 
NORMAL 

FOR J = 1 TO 30 

FOR I = (1488 + 7 + 20) ТО (1488 + 7) 
STEP - 1 

М = INT C RND (14) + 10) + 176 

GOSUB 8000 

POKE I,N: NEXT : NEXT 

FOR I = (1488 + 7 + 20) ТО (1488 + 7) 
STEP - 1: POKE 1,32: NEXT 

МҮ$ = " BANK TRANSFER COMPLETE  '': 
VTAB 1: HTAB 20 - LEN CMY$) / 2: 
INVERSE : PRINT CHR$ €C72;MY$: NORMAL 
VTAB 23 

VTAB 23: HTAB 8: PRINT "HIT ANY KEY TO 
CONTINUE": WAIT - 16384,128: POKE - 
16368,0: RETURN 

REM жж» PICK LOCK ROUTINE *** 

HOME :DC$ = " DECODING KEY ": HTAB 20 
- LEN CDC$) / 2: FLASH : PRINT DC$: 
NORMAL 

ВК = INT CRND (1) * 99999) + 10000 
BK$ = STR$ CBK) 

FOR I = 1 70 5 

PK = INT С RND (1) * 10) 

FOR РР = 1 TO PK: POKE 1192 + РР + 
17,163: GOSUB 8000: NEXT PP: FOR PN = 
1 TO PK: POKE 1192 + PN + 17,160: NEXT 
PN 

РК$ = 5ТР% (РК) 

GOSUB 8000 

IF PK$ = MID$ CBK$,1I,1) THEN 7110 
VTAB 22: HTAB I + 17: PRINT PK$: GOTO 
7050 

PRINT CHR$ €7): VTAB 22: HTAB I + 17: 
INVERSE : PRINT PK$: NORMAL : NEXT I 
УТАВ 22:TB$ = "TODAY’S CODE IS->": 
PRINT TB$ 

UL$ = " DECIPHERING COMPLETED “: VTAB 


7140 


8000 
8010 
8020 
9000 


9010 


9020 
9030 
9040 
9050 


9060 
9070 


9080 
9090 
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2: HTAB 20 - LEN CUL$) / 2: INVERSE 
PRINT UL$: NORMAL 

VTAB 24: HTAB 8: PRINT “HIT ANY KEY TO 
CONTINUE": WAIT - 16384,128: POKE - 
16368,0: RETURN 

REM *** CLICKING +++ 

CLICK = - 16336 

UL = PEEK (CLICK): RETURN 

PRINT : PRINT : INVERSE : PRINT “HOW 
MUCH TO TRANSFER TO YOUR ACCOUNT?"': 
NORMAL : INPUT "$"; МЏ 

PRINT : PRINT : INVERSE : PRINT “DO 
YOU HAVE THE DAILY CODE NUMBER FOR '': 
PRINT BANK$CAN);" CY/N)";: GET CD$: 
PRINT CD$: NORMAL 

IF CD$ = "N" THEN GOSUB 7000 

INPUT "PLEASE ENTER THE CODE-»'';DC 

IF DC = BK THEN GOSUB 6000 

HOME : PRINT : VTAB 10: INPUT " 
ANOTHER TRANSFER?CY/ND : ";ҘАМ%: IF ANS 
= "М" THEN END 

IF DC = BK THEN GOTO 10 

PRINT : FLASH : PRINT “THAT IS NOT THE 
CODE";: PRINT CHR$ (7): NORMAL : PRINT 
: PRINT "HIT ANY KEY TO CONTINUE": GET 
GT$: PRINT GT$ 

GOSUB 7000 

GOTO 9030 


APPLE METRONOME 


Psst. . . . Here's a routine that makes your $2,000 Apple act like a $29.50 
metronome (wait, this metronome flashes; that's worth an extra ten bucks 
for sure!). The variable TIME controls the metronome's speed. Change it 
until you like what you see and hear. 


10 TIME = 300 : REM LOWER=FASTER 

20 FOR J = 1 TO TIME: NEXT 

30 VTAB 10 : PRINT SPCC80) 

40 FOR Х = 1 ТО 5 : A = PEEK (49200): NEXT 
X 

50 HOME : INVERSE : GOTO 20 


POKE WON’ T CLICK!? 


Hey! Someone just pointed out that POKE -16336,0 won't click his 
Apple's speaker, and page 123 of the Integer manual (available in antique 
bookstores) says it will. Same is true on our Apple. How about yours? 
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Meanwhile, X = PEEK(-16336) clicks just fine, but only every other time! 
Mysteries of the deep! 


BEEPNOTES 


First of all, to ‘‘print’’ a beep, you type PRINT then a quote mark, then а 
Control-G (audible, but invisible), and then another quote mark. Follow 
that with a semicolon if you don t want the screen to scroll. You will hear 
the Control-G in the listing as well as in the program, unless . . . 

To prevent your program's Control-G beeps in your listings, type G$ 
— CHR$(7) (same as Control-G). Now when you want a beep, simply 
PRINT G$. 

And, speaking of beeps, you can use Control-G as a nifty debugging 
device. Often the reason a certain program line doesn't work is that the 
program never got to that line. To see if it did, simply put a PRINT 
CHRS(?) at the beginning of the statement. RUN the program; if it beeps, 
you know it encountered the statement in question. 


UNWANTED SOUNDS! 


(Please don’t RUN this program.) 


10 GOTO SO 

20 “Open the windows! Sound the alarm! 

30 " : ALARM 0 30 DO 7 EMIT LOOP ; 

40 " Do not CALL -151 and CO30L 

50 TEXT : HOME 

60 FOR I = 768 TO 795: READ J: POKE I,J: 
NEXT 

70 POKE 1013,76: POKE 1014,0: POKE 1015,3 

80 I = 22:K = 22 

85 REM 


To hear what martians sound like, change the value of I in line 80 to 
122 and the variable I to J in line 90. 
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90 FOR I = 1 TO 20: NEXT 

100 М = М + 1: IF М = 7 THEN GOTO 200 

120 & I,K: GOTO 80 

130 DATA 32,70,231 ,134,81,164,80,152,170, 
202 ,208,253,44,48,192,69,81 ,1,70,202, 
208,253,44,48,192,136,208,236,96 

200 РО0% = "WELL EXCUUUSSSSE ME!" 

205 FOR W = 1 TO 1500: NEXT 

210 VTAB 10: НТАВ 20 - LEN CPO0$) / 2: 
SPEED» 50: PRINT POO$: SPEED= 255: VTAB 
23 


CHIRP 


User, the Beagle Bros’ cat, goes crazy when we play this one for him: 


10 FOR X = 0 TO 17: READ A: POKE 12345 + 
X,A: NEXT : DATA 173, 48, 192, 136, 208, 
4, 198, 0, 240, 7, 202, 208, 246, 166, 
0, 208, 239, 96 

20 М = RND (1) + 6:R = 1 + RND (1) + 66: 
FOR X = 1 TO N: POKE 0,R: CALL 12345: 
NEXT : GOTO 20 


Try changing N and R to constants. It’s all kinds of fun! 


MOO CALL 


Did you know that under DOS 3.3, typing ‘“CALL 985” will make your 
Apple moo like a cow? Sometimes once, sometimes twice, sometimes not 
at all. 


CHAPTER 11 


GRAPHICS 


NIGHT DRIVER 


This is a neat program that lets you follow a lo-res car down a long road to 
nowhere. (If you don't think there's much you can do with lo-res, take a 
look at this!) 


10 GR : HOME : NORMAL :A = 1 
22:L = 20:R = 39:5 = 40:U 
10000:2 = 0:E = 36:F = 37 

20 COLOR= 2: FOR Y = 28 TO 34: HLIN 23,27 
AT Y: NEXT : COLOR= V: HLIN D,28 AT 35: 
COLOR= S: PLOT 25,33: REM DRAW CAR 

30 FOR С = Z TO V STEP U: IF С = 2 OR С = 6 
THEN COLOR= V * (C = 2): FOR I = 23 TO 
26: HLIN L,I AT I + А: NEXT I: HLIN 24, 
26 AT 30: HLIN 24,26 AT 29: HLIN B,D AT 
28: PLOT D,29: REM HEADLIGHTS.ON/OFF 

40 FOR X = L TO Р STEP А + СС > UD: COLOR= 
С: НІМ $ - X,X AT R - X: МІН S - X,X 
AT X: VLIN R - X,X AT S - X: REM BKGRD 

50 COLOR= U:M = M + A: HTAB 24: PRINT M;: 
PLOT 27,41: REM MILEAGE 


:В = 21:D = 
= 3:У = 15:M = 
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60 COLOR» X: VLIN E,F АТ 23: МІН E,F AT 
27: REM TIRES 

70 COLOR= V: VLIN D,R AT L: COLOR= 2: FOR J 
= B+ X - INT (ХХ / U) + U ТО R STEP U: 
PLOT L,J: REM WHITE.LINE 

80 NEXT : NEXT : NEXT : GOTO 30 


16 COLORS = 6 


Perhaps you’ve noticed how some lo-res colors look the same as each 
other on a black-and-white monitor. Number 2 blue lines with a #4 green 
background might look fine in color, but be hard to see in black-and- 
white. Good computer graphics should work both ways. Either program in 
user-definable colors according to monitor type or avoid letting two colors 
touch that have the same black-and-white shade. 


COLOR B&W SHADE 
0 Black 0 Black 
1 Magenta 1 Dark Gray 
2 Dark blue 1 
4 Dark green 1 
8 Brown l 
5 Gray 2 Solid gray 
10 Gray 2 
3 Lavender 3 Med. gray 
6 Med. blue 3 
9 Orange 3 


12 Bright green 3 
7 Light blue 4 Light gray 


11 Pink 4 
13 Yellow 4 
14 Aqua 4 


15 White 5 White 
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Here is a chart showing each standard Apple text character and its two 
corresponding lo-res colors: 


BOTTOM COLOR 


v 
9 


іл 
9 
””оочолоом-ео 


4. %О© оо © © ьш n= Ф 


`~ oc 


` 


© со зч OUP WNP о 
о оф ч с \л hf ш го О 


TOP COLOR 


e 
o 
- о оч О л. ьщ) Юю Фф 


Охтхт=|х=-=—> оттосо ш>) 

| >U/MN<XXE<CANAOHDV 
б< +ж—— сфе ek 

OZZ 7 я-то т толоре 

| >U/SMN<XXE<CAWAHOTV 
ts + ж - Qo 32 ЗЕ 

ох; 7х -тоттмосвьь |К 

| >U/MN<xE<eCAMNAHOD 
1 ~ + ж —— ~ go 39 «dE з= 


Еог ехатр!е: 


COLOR-8 
(brown) 


COLOR-1 
ена | (Magenta) -— 


COLOR-4 
(dk.green) 


ші COLOR=12 == coLoR-:10 COLOR=11 
(or.ereen) (grey) toink) 

(NORMAL) (GRAPHICS) t NORMAL > (GRAPHICS) (NORMAL) (GRAPHICS) 
COLOR=1 COLOR-4 COLOR=8 

ашыш] (magenta) (dk.ereen) (brown) 


COLOR::3 
(lavender) 


COLOR-2 
(dk blued 


COLOR-O 
tblack) 


C INVERSE) (GRAPHICS) INVERSE) (GRAPHICS) CINVERSE) (GRAPHICS) 


COLOR-8B 
(brown) 


COLOR-1 
(magenta) 


COLOR=4 
(dk. ereen) 


COLOR=4 
(dk green) 


COLOR=6 
(med.blue) 


COLOR=7 
Cit.blue) 


CFLASHING) (GRAPHICS) CFLASHING) (GRAPHICS) (FLASHING) (GRAPHICS) 
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CHARACTER PLOTS 


Did you know that you can PLOT characters on the text screen? Don't 
ask why, just try it. This program plots ап “А” in the upper left corner 
of the screen. You take it from there! 


10 TEXT: HOME: PRINT CHR$C21) 
20 COLOR=1: PLOT 0,0: COLOR=12: PLOT 0,1 


Here is a chart showing each standard Apple text character and its two 
corresponding lo-res colors: 


PDL ADJUST 


To adjust your paddles so they won’t send your cursor crashing off the 
hi-res screen, set variables PX =: 279/255 and РУ = 191/255. Then let 
X=PDLC0)*PX and Y 2PDLC12*PY, and HPLOT X,Y or whatever. 


ETCH-A-MESS 


Hey kids! Draw some pictures all over your TV sets! To SAVE the hi-res 
picture, Reset out of the program and type BSAVE MONA LISA, 
A$2000,L$2000. To SAVE the lo-res one, Reset and type BSAVE WHIS- 
TLER'S SISTER,A$400,L$400. 


10 REM 
PADDLE PLOTTER 
CLO-RES) 


15 DIM C$C15) 
20 PX = 39 / 255:PY = PXsC = 1 


25 


26 


30 
40 
50 
60 
70 
80 
100 
110 


130 


145 


150 


10 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


GRAPHICS 


C$C0) = "BLACK":C$C1) = "MAGENTA": CS$C2) 
= "DARK BLUE":C$C€3) = "VIOLET":C$C4) = 
"DARK GREEN": CSCS) = "GRAY":C$COD = 
"MEDIUM BLUE":C$C(7) = “LIGHT BLUE" 
C$(8) = “BROWN":C$C9) = "ORANGE":C$C10) 
= "GRAY":C$C11) = "PINK':C$C12)2 = 
"LIGHT GREEN":C$C132) = “YELLOW':C$C€14) 
= “"AQUA":C$C1S) = “WHITE” 

HOME : GR 

XNU = PDL С0) * PX 

УМУ = PDL (1) * PY 

XOLD = XNU:YOLD = YNU 

XNU PDL (0) * PX 

YNU PDL (1) * PY 

COLOR= C: PLOT XNU,YNU 

IF PEEK С - 16384) » 127 THEN POKE - 
16368,0:C = С + 1: IF С > 15 THEN С = 0 
VTAB 21: HTAB 1: PRINT “PADDLES CHANGE 
POSITION-> X:*"; INT CXNU);"Y:"; INT 
CYNU);: CALL - 868 

VTAB 23: HTAB 1: PRINT “ ANY KEY 
CHANGES COLOR-» ";C;%:";C$CC)3: CALL - 
868 


GOTO 60 

REM 

PADDLE PLOTTER 

CHI-RES) 

PX = 279 / 255:PY = 191 / 255 
HOME : HGR 

XNU PDL (0) «PX 


YNU = PDL (1) * PY 

XOLD = XNU:YOLD = YNU 

XNU = PDL €0) * PX 

YNU = PDL (1) æ PY 

HCOLOR= 3 

HPLOT XOLD,YOLD TO XNU,YNU 

REM IF XOLD « > XNU OR YOLD < > YNU 
THEN HCOLOR= 0: HPLOT XOLD,YOLD TO 
XNU,YNU:REM COMIT 1ST "REM" TO CHANGE) 
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120 VTAB 22 
130 PRINT "X:"; INT CXNU);" " 
140 PRINT "Y:'"; INT CYNUD;" " 
150 GOTO 60 


HI-RES CIRCLES 


One of the most frequently asked questions around here (next to 
“Мо zapped my disk?’’) is “Ном do you draw a hi-res circle?’ Well, 
here's one way— 


Sso222"e 2222222 
хш ш ш —2 5ш ш ш ш шо шошо ш 


20 HGR : HCOLOR= 3:ST = .1 

30 POKE - 16301,0: HOME : VTAB 22: HTAB 1: 
INPUT "X CENTER, Y CENTER, RADIUS: 
"SXCTR,YCTR,RAD:FLAG = 0:5Т = .1: POKE 
- 16302,0 

40 FOR I = 0 TO 6.3 STEP ST 

50 X = RAD * COS CI) + XCTR 

60 Y = CRAD / 4) * SIN CID / .3 *YCTR 

70 IF X» 279 OR X < 0 OR у > 191 OR Y « 0 
THEN FLAG = 0: GOTO 100 

80 IF NOT FLAG THEN HPLOT X,Y:FLAG = 1 

90 HPLOT TO X,Y 

100 NEXT : GOTO 30 


Note the variable ST in line 30. It determines how many ‘‘sides’’ the circle 
will have. Change it and see. 


LOOKER 


Have you ever wondered what’s on your hi-res screens and learned to 
your dismay that a HGR or HGR2 will erase the screen? Of course, you 
can POKE your way there, but why bother when the following program 
will do it for you? 
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10 TEXT : HOME 

15 УТАВ 7: PRINT “HI-RES PAGE 1 OR 2? '';: 
GET A4: IF AX = 2 THEN GOTO 200 

20 POKE - 16304,0: POKE - 16297,0: POKE 
-16300,0: POKE - 16302,0 

30 WAIT - 16384,128: PRINT " " 

40 TEXT : HOME : УТАВ 7: INPUT "DO YOU 
WANT TO LOOK AT PAGE 2? (Y/N) ";8S$: IF 
AS$ = "Y" THEN GOTO 200 

50 GOTO 320 

200 POKE - 16304,0: POKE - 16297,0: POKE - 
16299,0: POKE - 16302,0 

300 WAIT - 16384,128 

310 TEXT: HOME : VTAB 7: INPUT "DO YOU WANT 
TO LOOK AT PAGE 1?CY/ND ";AN$: IF ANS = 
"Y" THEN GOTO 20 

320 TEXT : HOME : VTAB 10: PRINT " НЕВЕ ^5 
LOOKIN’ AT YOU KID": VTAB 23 


THE MYSTERIOUS COLOR BIT 


You may have wondered if there is a difference between the colors 
black #0 and black #4 and white #3 and white #7. Well, here's an 
experiment that proves these different colors really do exist: 

First, RUN Alpha Plot (from Beagle Bros, naturally) and clear the 
screen in a color other than white or black. Now, switch pages with 
Option 6-S and clear the screen in color #0, black. You now have a solid 
color on page 2 and a black screen on page 1. 

Now, set the color to #4 (the other black). At various places on the 
screen, draw some filled boxes and ellipses. Since you are drawing black 
on black, they won't look like much, but trust us. . . . 

Here's the fun part—select Option 6-M for Merge. Select Merge 
Option #2, XDRAW page | onto 2. Now look at page 2. Your invisible 
figures have appeared! If you pick the same merge option again, they will 
disappear before your very eyes! 

Now try this: go back to-Drawing Mode on page 1. Use the Rubber 
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Band Cursor and line it up vertically over some of your invisible figures. 
Wherever the rubber band intersects your shapes, it will take a little 
sideways step and change colors. Once again, you can see the reality of 
the invisible color bit! 


252 У "3 йд 
01001010010101 Ё 


ЕЙ 1011011101010 
PE 00001010000000 
ІШ 01010101001010 
ПЕЙ 00101010101101 

4 00101010101101 


(7 01011011101010 | 


. 01010101010101 [9 
' 11110101010100 № 
11010101010101 Ё 
‚ 11010101010101 № 
; 01001010010101 
01010101010101 № 


ÁN, 


ӘЙ 00001010000000 | 


11110101010100 


Ты TU AT er b Ata M uve vemm TM MT + 
t n. nus ir NER м RI NER sale 
7 ЖЕР ЧЫР ——-c T (ын фь кд) ее”, 6 МЫР” тар” “аға” = 


325 oe M eer ee ee 


HI-RES PAGE 3 


I don’t know if Apple calls it page 3, but we do. We discovered by 
accident that you can store a full-screen hi-res image above page 2 and 
move it to one of the viewing pages (page 1 or page 2) anytime you want. 
There’s a pointer at location 230 ($E6) that tells you what page you are 
drawing on. Use the following POKEs to change the drawing page: 


POKE 230,32 (DRAW ON PAGE 1) 
POKE 230,64 CDRAW ON PAGE 2) 
POKE 230,96 (DRAW ON PAGE 3) 


The page you are looking at, | or 2, is determined Бу HGR or HGR2, 
whichever is more recent, or by the display switches at -16299 and 16300: 


POKE - 16300,0 CLOOK AT PAGE 1) 
POKE - 16299,0 CLDOK AT PAGE 2) 


Now, let's try a test. Type in the following program: 


10 HGR: HGR2: HCOLOR=3: POKE 230,96: REM 
SET UP DRAW ON PAGE 3 

20 HPLOT 0,0 TO 279,191: HPLOT 0,191 TO 
279,0: REM DRAW AN X CWON’T SHOW) 

30 VTAB 21: END 
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You just drew a big X on page 3, and you're looking at a blank page 
1. Page 2 is blank as well. To move the X to page 1 so we can see it, enter 
the monitor and move the picture in memory, like so: 


CALL -151 «RETURN? 
*2000<6000.7FFFM «RETURN? 


Page | resides in memory locations $2000 to $3FFF (8192 to 16383). 
Page 2 is $4000 to $5FFF (16384 to 24575). Page 3 is $6000 to $7FFF 
(24576 to 32766). Knowing this, you can move an image from one page to 
another by altering the numbers in the move command. Remember, how- 
ever, that to /ook at a certain page, you have to throw the -16300 or 
-16299 switch, and you can't look at page 3. 

We guess we should mention ‘‘разе 0.” In hi-res terminology it 
would encompass memory locations $0 through $1FFF, which includes the 
real page 0 ($00-$FF). ‘‘Drawing’’ on this page can be disastrous. This is 
exactly what happens if you turn on your Apple and start HPLOTting 
without doing an HGR or POKE 230,32. Because the value at location 230 
is 0, you overwrite page 0 and really make а mess. Likewise, ““раре 4’’ is 
unusable, because that's where DOS is. Don't draw on DOS. 


BLACK + WHITE = COLOR 


You can't trust anything. Here's a program that makes color lines out 
of black and white. We'd explain it, but it's 2:00 A.M. and мете at a loss 
for words right now. 


10 HOME : HGR : HCOLOR= 3: REM OR HCOLOR=7 

20 FOR Y = 125 TO 155 STEP 10: HPLOT 0,Y TO 
279,Y: NEXT : REM PLOT WHITE LINES 

30 FUR X = 0 TO 186 STEP 2 

40 HCOLOR= 0: HPLOT X,125: HPLOT X + 1,135: 
REM ADD #0 BLACK TO MAKE #1 GREEN & #2 
VIOLET 

50 HCOLOR= 4: HPLOT X,145: HPLOT X* 1,155: 
REM ADD #4 BLACK TO MAKE #5 ORANGE & #6 
BLUE 
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60 NEXT X: VTAB 21 
70 PRINT <$- HGODULDRS.14255,0 ----95 
<-HCOLOR 3->" 


AND FURTHERMORE... 


Not only can you get color from black and white, but we found a way 
for you to make curves out of straight lines: 


20 HGR ¢ НОМЕ : FOR C = T TH 6: УТАВ 22: 
НТАВ 18: PRINT “COLOR “;C: HCOLOR= C: 
FUR.X.-'T ТО SaethPeot 2-4 X + 504,0. To, З 
* X,T791£$ ..NEXT£ NEXT 


BEAGLE CARD FILE 


If you follow our ads in the Apple magazines, you know that we 
always include little Applesoft programs to spice things up. Well, here's 
our all-time favorite, a little hi-res flick— 
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10 HGR: HGR2: POKE 232,120: POKE 233,64: 
POKE 16504,7: SCALE=80: P=16: X299: FOR 
R=0 ТО 31: P=P*-1: POKE 230,48+P 

20 FOR Y=0 TO 1: ROT=ABS(64*#Y-R): 
HCOLOR=3: FOR A=1 TO 25: DRAW 1 AT 
X+2*A,X: NEXT: HCOLOR=0: DRAW 1 AT X,X: 
ROT=32: DRAW 1: DRAW 1 AT X,X: NEXT Y,R 

30 FOR А=0 TO 20: FOR В=0 TO 1: РОКЕ 
49237-B,0: X=PEEKC49200): FOR C=1 TO 
G*A: NEXT C,B,A: GOTO 30 


HI-RES FLIX 


This program lets you flip between two hi-res pictures at a predeter- 
mined rate. Variable W1 controls the time page | shows, and W2 does the 
same for page 2. 


10 TEXT : HOME 

20 INPUT "PAUSE 1 (0-500):“; М1 

30 INPUT "PAUSE 2 С0-500):"; М2 

40 POKE -16304,0: POKE -16302,0: POKE 
-16297,0 

50 POKE -16300,0: FOR X = 1 TO М1: NEXT 
POKE -16299,0: FOR X = 1 TO We: NEXT 
GOTO 50 


BLOAD any two hi-res pictures before you RUN the program by typing 
BLOAD PICTURE.1,A$2000 <RETURN> AND BLOAD PICTURE.2, 
A$4000 <RETURN>—$2000 and $4000 represent the addresses of pages 
l and 2. “РІСТОКЕ.1”° and “РІСТОКЕ.2” are the names of your two 
hi-res pictures. RUN the program and notice the effect different rates of 
flicker have. If you want, remove the delay loops entirely from line 50. 

A machine-language version of the same program follows. Notice how 
(humongously) much faster it is! It is so fast that if you use a small wait 
value (W1 or W2), a picture doesn’t have time to be completely ‘‘printed’’ 
on the screen before the page switch is made. You’ll have to stop the 
program with Reset. 
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10 TEXT : HOME : PRINT "FOR BEST EFFECT, 
BLOAD TWO DIFFERENT IMAGES ONTO HI-RES 
PAGES ONE & TWO.": PRINT : PRINT 

20 INPUT "PAUSE 1 €0-80):";W1 

30 INPUT "PAUSE 2 €0-80):";W2: IF We > 80 
OR Wi > 80 THEN 10 

35 PRINT : PRINT : PRINT “<CONTROL-RESET> 
TO GUIT...": FOR I = 1 TO 1234: NEXT 

40 POKE 768,141: POKE 769,84: POKE 770,192 

50 POKE 771,62: POKE 772,0: POKE 773,0 

60 FOR I = 4 TO W1 + 3: POKE 770 + 1,234: 


NEXT 

70 POKE 770 + 1,141: POKE 771 + 1,85: РОКЕ 
772 + 1,192 

80 FOR J = 1 TO We: POKE I + J + 772,234: 
NEXT 


90 РОКЕ 772 + J + 1,76: POKE 773 + J + 
1,0: POKE 774 + J + 1,3 

100 POKE - 16304,0: POKE - 16302,0: POKE - 
16297,0 

110 CALL 768 


ZERO PAGE PLOT 


Turn your Apple off and on and RUN this program. (If you have an 
Apple //e or Apple //c, wait about thirty seconds after you turn it off.) 


20 HOME: GR: REM (That’s GR, not HGR) 
30 FOR X = 0 TO 255 

40 HPLOT X,Y 

50 PRINT X 

60 NEXT 


You have just drawn all over page 0! Weird things happen if you don’t set 
the page pointer at 230. It should be set to 32 or 64 for hi-res page | or 2. 
HGR and HGR2 do this for you, but when you turn on your Apple it’s set 
to 0. See your РЕЕК$ and POKEs chart. (Reboot after RUNning.) 
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560-PLOT HI-RES 


This program proves the existence of 560 horizontal hi-res plots. First, a 
normal bumpy hi-res line is drawn from 0,0 to 75,150 (DX,DY). Then we 
draw a parallel supersmooth (but slow) line. 


10 HOR’: HOME = VTBB 21: ATAB: 12: PRINT 
"P? Pt: HTAB 12: PRINT "! ҮШІНЕ C560- 
PLOT? HI-RES". HTAB 12: PRINT "ІМ; HTAB 
12: PRINT “!NORMAL HI-RES"; 

20 DX = 80:DY = 160 

40 FOR Y = 0 TU DY 

50 X = 27 #22 СОХ æ Y ГЫ 

60 UDD = INT CX) = INT CK / 2) * 2 

70 HCOLOR= 3 + 4 * ODD 

80 xX =X f 2 

90" HPEUT X,Y: КЕМ OR HPLOT’ X;Y TB X*1,Y 

100 NEXT : УТАН 23 

110 HCOLOR= 3: HPLOT 0,0 TO DX,DY: REM 
NORMAL LINE 


If the column number is odd, we use HCOLOR #7 white. If it’s 
even, we use #3 white. These two colors plot in either the left or right half 
of one of the 280 hi-res columns. Our example here cheats just a little by 
picking special coordinates for extra smoothness. 


So tell me, 
Hi-Res Harry— 


Sure, watch— 
Just yell 
“HGR!” 
as loud as 
you can. 
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HI-RES PULSE METER 


10 HGR2 : HCOLOR= 3: FOR X = 768 TO 789: 
READ J: POKE X,J: NEXT: DATA 0,0,96,173, 
48,192,136,208,4,198,1,240,8,202,208, 
246,166,0,76,3,3,96 

20 HPLOT 0,0: FOR Р = 1 ТО 254 STEP 3: РОКЕ 
0,P: POKE 1,4: CALL 771: POKE 0,255 - P: 
POKE 1,4: CALL 771: HPLOT TO INT € RND 
(1) + Р),.7 + P: NEXT 


SHAPE-TABLE TALK 


Let's assume you know nothing about shape tables (you're not the only 
one). Here are a few little experiments that will at least give you a taste of 
the fantastic animation possibilities. 

Using shape tables is easy; it's making them that is usually difficult. 
If you've looked in the Applesoft manual in the shape-table chapter, you'll 
see why. We're not going to go into how to make shape tables here. 
Beagle Bros has a disk called Shape Mechanic that will write shape tables 
for you; all you do is draw your shape on the screen and the shape table is 
automatically written by your Apple. Many good features are included. 

Here is a sample shape table containing five shapes. Type FP «RE- 
TURN> to clear memory. Now enter the monitor by typing: 


CALL -151 «RETURN»? 


You should now have an asterisk and a flashing cursor. Enter the follow- 
ing shape table: 


6000- 05 00 10 00 30 00 40 00 
e008- 50 00 58 00 FF FF FF FF 
6010- 2D 2D 2D 3E 3F 3F 37 2D 
6018- 2D 2D 3E 3F 3F 37 2D 2D 
6020- 2D ЗЕ ЗЕ ЗЕ 37 2D 2р 2D 
6028- 3E 3F 3F 3F 00 FF FF FF 
6030- 08 0C D6 A^ DF 63 1C 08 
6038- 1C 07 00 FF FF FF FF FF 
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6040- 12 ЗЕ 20 64 2D 15 36 1E 
6048- 07 00 FF FF FF FF FF FF 
6050- 07 00 FF FF FF FF FF FF 
6058- ЗЕ 37 2D 35 37 4D C0 2C 
6060- 1C 3F 3F 4C ES 07 00 FF 
6068- FF FF FF FF FF FF FF FF 


In case you've never entered machine code before, just type: 
6000: 05 00 10 00 30 00 40 00 «RETURN? 
and 
6008: 50 00 58 00 FF FF FF FF «RETURN» 


and so on. Notice the colon (not a hyphen) after the four-digit number; 
very important! Now save the shape table by typing: 


BSAVE SHAPES,A$6000,L$70 


Anytime you want these shapes back, type: 


BLOAD SHAPES 


Now tell your Apple where you put the shape table by typing: 
POKE 232,0: POKE 233,96 


You could make these POKEs part of a program. 232—233 is the start 
of the shape-table pointer. See your PEEKs and POKEs chart. 

Now we can play with the Apple commands DRAW, XDRAW, 
ROT, and SCALE. Try each of the following programs. 


SHAPE DISPLAY 

15 TEXT : HGR : ROT= 0: SCALE= 1: POKE 
232,0: POKE 233,96: PRINT CHR$ (4); 
“BLOAD SHAPES" 
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16 ROT= 0: SCALE= 1: HCOLOR= 3 

20 FOR SH = 1 70 5 

30 DRAW SH AT SH * 21,150 

40 NEXT SH 

50 HOME : VTAB 21 

60 НТАВ 4: PRINT "1 23 4 5" 

20 REM 
ROT TEST 

30 HOME : HGR : SCALE= 1: HCOLOR= 3: POKE 
232,0: POKE 233,96: PRINT CHR$ (4); 
“BLOAD SHAPES" 

35 HPLOT 0,150 TO 279,150 

40 FOR X = 50 TO 250 STEP 1 

80 R= В + 16: IF R > 48 THEN R = 0: REM 
INCREASES ROTATION 90 DEGREES 

82 VTAB 21: HTAB X / 7 - 4: PRINT SPCC 1); 
"RÜT";R;: CALL - 868: REM PRINTS ROT 
VALUE 

83 УТАВ 22: HTAB X / 7 - 2: PRINT SPC 
С 1);"Х:";Х: REM PRINTS X POSITION 

85 ROT= R: XDRAW 5 AT X,140: REM DRAWS 
ARROW 

90 FOR I = 1 TO 99: NEXT I 

95 XDRAW 5 AT X,140: REM ERASES ARROW 

100 NEXT X 

20 REM 

SCALE TEST 

30 TEXT : HOME : HGR : ROT= 0: РОКЕ 232,0: 
POKE 233,96: PRINT CHR$ (42;"БІ ПАР 
SHAPES" 

40 FOR S = 1 TU 10 

80 SCALE= S 

82 VTAB 21: НТАВ 10: PRINT "SCALE:"5;S;: 


CALL - 958 
XDRAW 1 AT 70,30: REM DRAWS BOX 
IF S = 1 THEN FOR I = 1 TO SOO: NEXT I 


GRAPHICS 125 


95 XDRAW 1 АТ 70,30: REM ERASES BOX 
100 NEXT S: GOTO 40 


Fool around with these programs and change some of the numbers. 
Substitute DRAW for XDRAW and see what happens (be sure you have 
HCOLOR set for something other than black). XDRAW draws in the 
opposite of whatever the background color is. That's how you can erase a 
drawing; just XDRAW over it in exactly the same position! Notice how 
SCALE, when it's bigger than 1, blows up a solid shape in a linear 
fashion. Too bad it won't blow up solids. 


HI-RES COLLISIONS 


Here's an experiment to demonstrate hi-res collisions, handy if you feel 
the urge to write a SDTFS* game. We have read two articles, each more 
than four blocks long, about how to simulate the lo-res SCRN function for 
determining the color of a hi-res point. Well, forget it. There's a handy 
PEEK you can do of location 234 that tells you if the last XDRAW was 
done over a black or nonblack point. This program pretty much explains 
itself. Oh, be sure the shape table from the previous section is in memory 
and the pointers are set —POKE 232,0:РОКЕ 233,96—or this program 
won't work. 


*Shoot Down the Flying Saucers 


=> 
zE- Шош шош шош шош пош шош 


20 TEXT : HOME : HGR : ROT= 0: SCALE= 1:N 
= 100: POKE 232,0: POKE 233,96: PRINT 
CHR$ €4);"BLOAD SHAPES" 

30 HCOLOR= 6: HPLOT 250,0 TO 250,191: 
HPLOT 30,0 TO 30,191 

40 FOR X = N + 2 TO 279 

50 xXDRAW З AT X,100 
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60 XDRAW 3 АТ Х,100 
70 IF PEEK (234) = 0 THEN NEXT X 
80 FOR М = X -1 TO 0 STEP - 1 
90 XDRAW 2 AT N,100 
100 XDRAW 2 AT N,100 
110 IF PEEK (234) = 0 THEN NEXT 
120 GOTO 40 

LO-RES MYSTERY 


You can’t PLOT X,Y where X > 39, but you can PRINT SCRN(X,Y) with 
values of X up to 47! Check it out. It seems that there’s an invisible lo-res 
screen to the right of the visible screen that’s 48 plots high by 8 plots 


wide. Maybe Apple is tooling up for CinemaScope! 


CHAPTER 12 


INTEGER (THE 


OTHER BASIC) 


INTEGER, //(c, AND PRODOS 


You may not have realized this but we found out the hard way. If you boot 
Apple's ProDOS on your Apple //c and key in INT, you get a “НОН?” 
error. You also get а “NEVER HEARD OF IT?" error if you FP. 
However, if you boot a good old DOS 3.3 System Master, everything 
works just fine and you can INT and FP to your heart's content. 


SPEED TEST 


Another little-known fact about Integer BASIC is that it is faster than 
Applesoft BASIC. To see for yourself, time the following program in both 
Applesoft and Integer with a stopwatch: 


10 CALL -936 

20 PRINT "START" 

30 FOR X = 1 TO 30000 
40 PRINT X 
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50 CALL -936 
60 NEXT X 

70 PRINT "ЕМІ" 
80 END 


In the olden days before very many Apple programmers wrote assembly/ 
machine-language games, most of the games were written in Integer for 
better speed. Look at the old club disks with games and you'll see the ‘Г’ 
next to a lot of them. 


FLASH IN I.B.! 


To flash alphabetical keys in Integer BASIC, simply POKE 50,127. 
Here is the Beagle Bros Integer flash subroutine that will flash all 


characters: 


10 


20 
22 
25 


30 
40 


50 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 


REM INTEGER FLASH SUBROUTINE 

BY BERT KERSEY 

DIM A$ (40) : FLASH=1000 

CALL -936 

XTAB= RND €10)+1: УТАВ= RND €21)+2: 
VTAB 1: TAB 1 

PRINT "TYPE SOMETHING:": VTAB YTAB 
TAB XTAB: INPUT A$ 

VTAB YTAB: TAB XTAB: PRINT A$: GOSUB 
FLASH: GOTO 25 

END 

FOR CHR=1 TO LEN CA$) 

XPOS= PEEK €36)-1+XTAB 

ҮР05- 2» PEEKC37)-1 

COL= SCRN CXPOS-1+CHR,YPOS) 
COLOR=COL-4 

IF COL»11 THEN COLOR=COL-8 

PLOT XPOS-1+CHR,YPOS 

NEXT CHR: RETURN 


For clarification of what goes on here, read the following: 
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"ay, 3 i 


Use Graphics Commands in Text Mode to: 


PRINT THE UNPRINTABLES 


Certain Apple text characters don't seem to want to appear on the video 
screen оп the old Apple II's and II+’s. Namely [,\,_, and “. CHR$ 
will retrieve these for you in Applesoft, but not in Integer BASIC. 
And sure, FLASH flashes fine in Applesoft, and an Integer POKE 50,127, 
while not widely publicized, will flash characters ASC 192 and above (A 
through Z and SHIFT-M,-N, and P). But what about flashing numbers and 
punctuation? 

A Solution: As we all know, Apple's lo-res colors have corresponding 
characters in the text mode. Hit Reset or type TEXT while viewing a lo-res 
picture, and you will see eight hundred or more text characters—some 
flashing, some inverse, and some normal. Keep looking. Some of these 
characters are probably the **unprintables.'" Conversely, a POKE -16304,0 
will convert a text display to its corresponding lo-res “рісіше” with each 
text character represented by a pair of lo-res colors. 

Every Apple text character has a corresponding pair of stacked color 
blocks in the graphics mode. 

To put some of our ‘‘unprintables’’ on the screen, let’s approach 
things a bit backward. To print an A at VTAB 1, TAB 1, the hard way, 
try the program on page 109. Now try this: 


10 TEXT : CALL -936 

20 VTAB 10: PRINT "SHE SAID, ‘YOU CAN’T 
PRINT QUOTE MARKS! '' 

30 COLOR=2: PLOT 10,18: PLOT 39,18 

99 END 
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The apostrophes in line 20 have an upper color of 7 and a lower color 
of 10. Line 30 changes the upper color to 2 and produces quote marks 
(upper color 2, lower color 10). Change line 30's COLOR to 11 to 
produce +’s, or to 15 to get /'s. 

To find plotting coordinates X and Y for a text character at TAB 
XT and VTAB YT, use X=XT+1 and Y=2*YT-2 (upper half) or 
Y = 2*УТ-1 (lower half). 

This little Integer program flashes some numbers at you, something 
POKE 50,127 won't accomplish: 


10 TEXT : CALL -936 
20 PRINT “FLASH: 12348" 
30 COLOR=7: HLIN 7,11 AT 1 :END 


Line 30 changes the lower color of all the numbers from 11 to 7 and 
produces flashing numbers. COLOR =3 would produce inverse numbers. 
COLOR = 13 changes things entirely. Try it, and compare your results 
with the chart on page 111. 

Here is a program that unleashes the truly unprintable (in I.B., any- 
how) underscore: 


10 TEXT: CALL -936 

20 FOR N=1 TO 5 

30 VTAB М: PRINT "AMOUNT #";М; "7277777" 

40 COLOR=13: HLIN 10,14 АТ 2*N-1 

50 VTAB N: TAB 10: INPUT A 

60 УТАВ М: TAB 10: PRINT™:"sA;" “: CALL 
-958 

99 NEXT N : END 


Now you're on your own! As you can see, any character can be 
printed on the screen flashing, inverse, or normal, with a little work. Some 
clever use of GOSUB statements in a long program will keep the keyboard 
banging to a minimum. 

Have fun! 


INTEGER (THE OTHER BASIC) 131 


INTEGER ADVANTAGE 


One of the gigantic advantages of Integer BASIC is the ability to use 
variables as line numbers, a great self-documentation feature. For exam- 
ple, if you have a card-shuffling routine at line 2416, you can use 
SHUFFLE = 2416. Then every time you want to shuffle, simply GOSUB 
SHUFFLE. Try that in Applesoft, and the computer goes, ‘‘Huh?’’ 


APPLESOFT VS. INTEGER BASIC 


One way or another every Apple II (+ ,e,c) supports two BASICs. (Even 
if you have a 32K or 48K Apple, there are ways of getting Integer or 
Applesoft into memory, regardless of your ROM. On club disks there are 
Integer/Applesoft programs that can load into 48K for sure, and probably 
32K if you're very careful. This doesn't mean anything to Apple //e and //c 
users who have mucho K to play with; so don't worry about it.) The very 
first BASIC on the Apple was Integer BASIC, but it was replaced by 
Applesoft BASIC, and while the two BASICS are different, for the most 
part they are similar. 

Unfortunately, there are significant syntax differences between the 
two languages and to convert a program from one to the other, you must 
know these differences: 


INTEGER APPLESOFT 
TAB HTAB 

POKE 50,63 INVERSE 
POKE 50,127 FLASH 

POKE 50,255 NORMAL 
CALL -936 HOME 

<> or # (not =) <> ог >< 

X MOD Y X-INT (X/Y)*Y 
X/Y INT (X/Y) 
RND (X) INT(RND(1)*X) 
A$(LEN(A$) + 1) = A$=A$+ 


AS(X,X) 


MID$(A$,X, 1) 
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INTEGER APPLESOFT 

AS(4,6) MID$(A$,4,3) 

А$(1,3) ГЕЕТ$(А$,3) 

МЕХТ Х МЕХТ 

GOTO A*100 ON A GOTO 100,200... 
GOSUB A*100 ON A GOSUB 100,200... 


INPUT "WHAT?",W МРОТ “УУНАТ”;УУ 


Other Differences: (1) All ASC values are lower by 128 in Applesoft, 

although PEEK (-16384) returns the high number in both languages; (2) if 

an IF statement is not true, Applesoft will not read the rest of a program 

line (a big difference!); (3) Applesoft has many more commands than 

Integer, and Integer has a few not available in Applesoft. Check your 

Beagle Bros Command chart. It lists all commands and their functions. 
To convert to Applesoft with a disk system: 


1. Add these lines to your Integer program: 


32764 D$="""; REM (CTRL-D) 

32765 PRINT D$; "NOMON С,1,04: PRINT D$; "OPEN 
CONVERTFILE™: PRINT D$; “WRITE CONVERTF IL 
E": CALL -936 

32766 POKE 33,127 

32767 LIST 0,32763: PRINT D$;"CLOSE": TEXT: 
END 

RUN 32764 «RETURN» 

FP «RETURN» 

EXEC CONVERTF ILE «RETURN» 

Correct all syntax. We recommend Roger Wagner's Apple DOC 


disk to make this task much, much simpler. 


Бө 


To convert Applesoft to Integer: 


. Correct all syntax. 

Add the lines of the preceding program without line 32766. 
RUN 32764 «RETURN» 

INT «RETURN» 

EXEC CONVERTF ILE «RETURN» 


tn ito Mr 


CHAPTER 13 


MACHINE 


LANGUAGE 


ENTERING MACHINE CODE 


As beginners, we were frustrated when presented with even a simple 
assembly-language program in a magazine because we just didn't know 
how to type it in! Well, here's how! This simple (and useless) little 
program prints flashing, normal, and inverse fonts on the screen. 


0300- A0 FF рү #$FF 
0302- 98 TYA 

0303- 88 DEY 

0304- 20 ED FD JSR $FDED 
0307- CO 00 CPY #$00 
0309- DO F7 BNE $0302 
030B- 60 RTS 


Or, you might see it like this: 


0300- AO FF 98 88 20 ED FD СО 
0308- 00 DO F7 60 00 00 00 00 


Here’s how you enter this program: 
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First, CALL -151 «RETURN? to enter the monitor. This will 
produce an asterisk and a cursor. Now type 


300: А0 FF 98 88 20 ED FD CO 00 DO F? 60 


and hit RETURN. That's it! Now go back to BASIC with Reset or 
Control-C! To RUN the program from BASIC, CALL 768 (decimal 
768 =hex 300, the number of the first program line). To LIST it, type 
CALL -151 «RETURN? апа 300L «RETURN». 


THE MINI-ASSEMBLER 


One of the best kept secrets of the Apple is its built-in mini-assembler. 
To use it, all you have to do is get Integer BASIC into memory. On Apple 
//c's this requires using a DOS 3.3 System Master instead of ProDOS. The 
old Apple II comes with Integer in ROM, but for the others, the easiest 
way to get Integer is just to boot the System Master and enter INT 
<RETURN>. 

To enter the mini-assembler, use one of the following methods: 


1. Enter the monitor with CALL -151 «RETURN? and then enter 
F666G «RETURN». 
2. From INT BASIC enter CALL -2458 «RETURN». 


As just about no one knows. the prompt for the mini-assembler is an 
exclamation mark (!). When you see that, you are in the mini-assembler. 
Now, you can enter assembly-language programs using mnemonic opcodes 
instead of machine-language opcodes (numbers). Here's how, using the 
same useless program entered earlier. 


1300: LDY *FF «RETURN» 


0300- А0 FF LDY #$FF 
! TYA «RETURN» 
0302- 98 TYA 


! DEY «RETURN? 
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0303- 88 DEY 

! JSR FDED «RETURN? 

0304- 20 ED FD JSR $FDED 
! TYA «RETURN? 


0307- 98 TYA 

! BNE $0302 «RETURN»? 

0308- DO F8 BNE $0302 
! RTS «RETURN? 

030A- 60 RTS 


!$FF69G «RETURN? 


* 


To define the starting address, you enter the hexadecimal value and a 
colon. Then put a space and start entering your opcodes. For entering 
opcodes in the mini-assembler, you must put a space after the exclamation 
mark (!) prompt, and a space between the opcode and operand. The 
$FF69G (with no space after the prompt) returns you to the monitor. Enter 
3006 «RETURN? and your program will execute. If this doesn't impress 
your friends, nothing will! 

If you want to SAVE this gem, enter BSAVE THIS GEM,A$300,L11 
<КЕТОКМ>. Do it from the monitor to further freak your acquaintances. 


BYTE COUNTING 


To figure out the number of bytes in a program so that you will know 
the length of L in a BSAVE, you can do one of the following: 

1. Count the machine opcode/operands in your program. (These are the 
hexadecimal values next to the addresses. There are from one to three after 
each address.) 

2. Subtract the starting address from the ending address and add 1. In 
our example you'd subtract $300 from $30A. From the monitor, enter: 


308-300 «RETURN? 
=0A 
0A + 1 = OB 


Your L$ = B. 
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DISASSEMBLIST 


If you want to list DOS or some humongous binary program to your 
printer, you have to type: 


PR#1 
CALL -151 
*9000L 


. . . then wait for the screen to fill, and type another L, and so оп, 
until your L finger has had it. But wait! Try this— 


*9000LLLLLLLLLLLLLLLLLLLLLLLLLLLL 


BINARY TO BASIC 


With all of the trouble it takes to learn machine/assembly language, 
why on earth would anyone in their right mind want to convert a binary 
program to a BASIC one. We don't know either, but just in case you find 
out, here's a way to do it. 


10 TEXT : HOME :K = 9000:N = 0:D$ = CHR$ 
(4): REM DOS 3.3 ONLY CNOT PRODOS) 

20 NORMAL : VTAB 3 

30 PRINT "DO YOU WANT A DRIVER IN THE 
BASIC FILE?": PRINT "=> (Y/N) '';: GET 
DRIVERS: PRINT DRIVERS : PRINT 

40 INVERSE : INPUT “NAME OF FILE TO BLOAD 
COR CAT)=> “;BF$: 

50 IF BFS = "CAT" THEN PRINT D$'"CATALOG": 
GOTO 40 


60 
70 


80 
90 
100 
110 


120 
130 


140 


150 
160 
170 
180 
190 


200 
210 
220 


230 
240 


300 
320 
350 
360 


370 
380 


65C02 
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IF BFS = "" THEN TEXT : END 

PRINT “WHICH DRIVE FOR BLOAD?";: GET 
D4: PRINT D% IF D% »2 OR DX «1 THEN TO 
IF BF$- "" THEN PRINT : GOTO 100 
PRINT D$"BLOAD";BF$;",D";D% 

INPUT "NAME OF FILE TO SAVE: '';FI$ 
PRINT "DRIVE TO SAVE FILE?";: GET 05%: 
PRINT DS% 

A PEEK (43634) + 256 * PEEK (43635) 
B PEEK €43616) + 256 * PEEK (43617) - 
1 

PRINT D$"OPEN"FI$;".1T,D"D%: PRINT D$ 
"WRITE"FIS$".T" 

IF DRIVER$ = "ү" THEN GOSUB 350 

PRINT К; "БРАТА"; 

FOR I = A TO A + B 

N=N + 1 

IF М = 5 OR I = + B THEN PRINT PEEK 
СІ): PRINT : GOTO 220 

IF N = 6 THEN K = K * 10:N = 0: PRINT 
K;" DATA "; 

PRINT PEEK С1);","; 

NEXT I 

PRINT D$"CLOSE"FI$".T" 

PRINT : PRINT "TYPE" CHR$ (34) "МЕМ" 
CHR$ C34)", THEN ", : PRINT “EXEC 
"EF[$", T": PRINT "TO CREMATE YOUR 
BASIC PROGRAM. ":END 

REM 

REM***«DRIVER*** 

PRINT "10 FOR I= ";А;" TO “;A + B: 
PRINT 

PRINT "20 READ D: POKE I,D : NEXT I": 
PRINT 

PRINT "30 CALL ";А: PRINT 

RETURN 


The Apple //c and the newer //e's and //e ROMs support the new machine- 
language commands: PHX, PHY, PLX, PLY, STZ, TRB, and TSB. Many 
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new versions of old 6502 commands have also been made available. Here 
is an alphabetized list of all the 65C02 commands. The first batch works 
with the 6502s and 65С025. The second batch is available only on the //c's 
and souped up //e's with the 65C02 processors. 


OPCODE 


ADC Add Memory to Carry a A-reg 
AND Logical AND memory to A-reg 
ASL Arithmetic Shift bits Left 
BCC Branch if Carry Clear 

BCS Branch if Carry Set 

BEQ Branch if Equal Zero 

BIT Test A-reg bits with memory 
BMI Branch if Minus 

BNE Branch if Not Equal to zero 
BPL Branch if Plus 

BRK Software interrupt. —BREAK 
BVC Branch if Overflow Clear 
BVS Branch if Overflow Set 

CLC Clear Carry flag 

CLD Clear Decimal flag 

CLI Clear Interrupt flag 

CLV Clear Overflow flag 

CMP Compare Memory and A-reg 
CPX Compare Memory and X-reg 
CPY Compare Memory and Y-reg 
DEC  Decrement memory by 1 
DEX  Decrement X-reg by 1 

DEY Decrement Y-reg by | 

EOR Exclusive OR memory and A-reg 
INC Increment memory by 1 

INX Increment X-reg by 1 

МУ Increment Y-reg by 1 

JMP Jump to new address 

JSR Jump but Save Return address 
LDA Load A-reg from memory 
LDX Load X-reg from memory 
LDY Load Y-reg from memory 
LSR Logical Shift bits Right 

NOP No Operation 


ORA 
PHA 
PHP 
PLA 
PLP 
ROL 
ROR 
RTI 
RTS 
SBC 
SEC 
SED 
SEI 
STA 
STX 
STY 
TAX 
TAY 
TSX 
TXA 
TXS 
TYA 
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Logical OR Memory and A-reg 
Push A-reg onto stack 
Push P-reg onto stack 
Pull A-reg from stack 
Pull P-reg from stack 
Rotate bits Left 

Rotate bits Right 

Return from Interrupt 
Return from Subroutine 
Subtract memory from A-reg 
Set Carry flag 

Set Decimal flag 

Set Interrupt flag 

Store A-reg into memory 
Store X-reg into memory 
Store Y-reg into memory 
Transfer A-reg into X-reg 
Transfer A-reg into Y-reg 
Transfer S-reg into X-reg 
Transfer X-reg into A-reg 
Transfer X-reg into S-reg 
Transfer Y-reg into A-reg 


On 65C02 Only 


BRA 
PHX 
PHY 
PLX 
PLY 
STZ 

TRB 
TSB 


Branch Always 

Push X-reg onto stack 
Push Y-reg onto Stack 
Pull X-reg from stack 
Pull Y-reg from stack 
Store Zero 

Test and Reset Bits 
Test and Set Bits 
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UNSUNG OPCODES 


Here are some opcodes we suggested Apple should include, but no one 
will listen to us... . 


CAB Crash And Burn 
ASB Ask Somebody 
RTM Read The Manual 
GHL Go Have Lunch 
CYM Call Your Mother 
GBO Get Bugs Out 
BBB Buy Beagle Bros 
DAB Drink A Beer 


UNUSED HEX CODES 


We were wondering which of the 256 available hex codes ($00-$ЕЕ) 
were used for commands and which were unused. The following chart 
shows what we found. If you squint, you can see a pattern. . . . Get out 
your decoder rings; there might be a hidden message here! 
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0 1 2 3 4 5 6 7 8 9 A B С D E Ё 
$00 x xu u c x x ux x x u c x хош 
$10 x x c u c x x u x x c u c x x u 
$20 x x u u x x x u x X Xx u x x x u 
90 x x c u c x x wx x c u c x хош 
$40 x x u u u x x U X X X U X X X u 
$50 x x c u u x x U x x c U U x x u 
$60 x x u u c x x U X x x U x x x u 
$70 x x c u c x x u x x c u c x x u 
$80 c x u и x x x U Xx с x U X x x u 
$00 x x c u x x x и X X X п C X C u 
$A0 x x x u x x x U X x x U x x x u 
$BO x x си x x x U x x x и x x x u 
$CO x x u u x x x U Xx x x и x x x u 
$D0 x x c u u x x u x x c u u x x u 
$E0 x x u u x x x и X X X wx X X u 
$FÜ x x c u x x x u X x c u u x x u 

x= 6502 and 65C02 — 65C02 only u — unused 
WORD.CALL 


Running this program will make a subsequent CALL print anything you 
want. Substitute the word you want in line 20. 


10 LOC = 16384: REM CALL 16384 TO EXECUTE 

20 A$ = “DUDLEY DOORIGHT" 

50 FOR A = LOC TO LOC + 13: READ B: POKE 
A,B: NEXT : DATA 160,0,185,0,0,32,237, 
253,200,192,0,208,245,96 

60 POKE LOC + 3,A - INT CA / 256) * 256: 
POKE LOC + 4, INT CA / 256) 

80 POKE LOC + 10, LEN CA$): FOR J = 1 TO 
LEN СА$): POKE A + J - 1, ASC CMIDS$ 
СА%,/22 + 128: NEXT 


Here is the machine-language program that is produced by RUNning 
the preceding Applesoft program. To see it, type CALL -151 <RE- 
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TURN> and 4000L <RETURN>. You can execute the program by 
typing 4000G <RETURN>. You can get back to BASIC by typing 
Control-C «RETURN». 


4000- AO 00 LDY #$00 Load Y with a zero. 

4002- B9 OE 40 LDA $400E,Y Load A with the value at $400E + Y. 
4005- 20 ED FD JSR $FDED Print the character in A. 

4008- C8 INY Increase Y by 1. 

4009- CO OF CPY #$0F Is it equal to the length of the word yet? 
400B- DO FS BNE $4002 If not, go to $4002. 


400D- 60 RTS The end. 
400E- C4 DS ASCII values for the text to be printed. 
4010- C4 CC 


BIT SPLITTER 


Want to know how to break a decimal number into bits? 


10 INPUT "NUMBER: '';N 

15 IF N»255 OR N«0 THEN 10 

20 FOR ВІТ=1 TO 8: НТАВ 9-BIT 
30 PRINT N- INTCN/2)2*2; 

40 N:INTCN/25: NEXT 


THE WORLD'S CLOSE-TO-SHORTEST 
HEX CONVERTER 


10 INPUT “DECIMAL NUMBER:";A$: AsVAL(CA$) 

20 POKE 71,А/256: POKE 70,A-256*PEEKC71) 

30 POKE 58,64: POKE 59,249: PRINT “=$";; 
CALL -327 
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SPEED CALL 


Why type CALL -151 to enter the monitor? CALL 1 saves three keystrokes! 
Bonus: A beep! 


BRUN YOUR PICS! 


Normally, if you BRUN (instead of BLOAD) a hi-res pic, it crashes. 
To prevent that: 
Pg. l Pic 1. POKE 8191, 96 
2. BSAVE PICNAME, A$1FFF, L$2000 
Pg.2Pic 1. POKE 16383,96 
2. BSAVE PICNAME, A$3FFF, L$2000 


CHAPTER 14 


DISKS 


COME AGAIN? 


To get all of you off on the right foot in this chapter, we will have a short 
lesson on pronouncing words you read but may not get enough practice 
saying: 


DOS rhymes with boss. Or, if you know German or watch reruns of 
Hogan's Heroes, it is pronounced DAS. On the other hand, DOS is 
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not pronounced as the Spanish word dos, which means ‘мо.’ 
Therefore, while you may correctly say you have the old DOS (das), 
three-point-dos (dose), if you refer to your DOS as dose, people may 
think you're referring to two disk drives, 3.2, or your IQ. 


Modem rhymes with “гое 'em."' 


EPROM doesn't rhyme with anything. If fact, no one has ever said 
EPROM out loud. 


WHAT'S DOS? 


DOS is Apple's ‘‘Disk Operating System.’’ Without it, your Apple simply 
does not know how to perform any function that involves a disk—load a 
program from disk, catalog, tell you '*FILE LOCKED,” access a text 
file, etc., etc., let alone start the motor on your disk drive. Without DOS, 
your Apple does know how to execute BASIC functions (we assume you 
are using Applesoft or Integer BASIC— most likely Applesoft) because 
BASIC is built in to your Apple in the form of unchangeable hardware, or 
ROM (‘‘Read Only Memory"). DOS is actually a complex machine- 
language program that is entered into your Apple's memory in RAM 
("Random Access Memory") each time you boot a disk. DOS normally 
remains in memory as long as your Apple is turned on and is not affected 
or changed by anything you ordinarily do—programming, loading, saving, 
deleting, etc. 

So, after you boot a disk (load DOS), your Apple knows two sets of 
instructions, BASIC and DOS. When you enter an instruction through the 
keyboard, the Apple checks it first to see if it is a DOS command, then to 
see if it is a BASIC command. If you type ABCFED with a carriage 
return, for example, the Apple checks its entire 28-word DOS command 
vocabulary (words like CATALOG, RENAME, DELETE) to see if it knows 
ABCFED. If it doesn't, it then checks its BASIC vocabulary (words like 
LIST, GOTO, AND, NEXT, POKE). If it can't find ABCFED there, it 
gives ир and prints ''?2SYNTAX ERROR” or “%%% SYNTAX ERR.” If it 
does know the word that you have typed, it executes the command 
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according to the instructions that reside in memory, either DOS or BASIC, 
depending on where the command was found. All of this takes approxi- 
mately no time at all. 


WHAT'S DOS BOSS? 


Since DOS is an accessible written program in RAM and not a permanent 
collection of hardware like BASIC, you can change it to suit your desires 
and to have more control over your computer. DOS BOSS (by Beagle 
Bros, natch) is the key to making these changes. With DOS BOSS, you 
will have immediate access to DOS's most visible functions and features. 
With this book, you will have even further control and learn a bit more 
about what goes on inside your Apple's '*'brain." We have written as 
much as possible from a beginner's viewpoint, assuming that you know 
nothing of machine-level programming or the way a computer works. 
Technical details, whenever possible, have been omitted or written in 
English. (By the way, if you have an Apple //c, use your System Utilities 
disk to format a 3.3 disk. ProDOS comes with your //c, but DOS 3.3 
works fine, and most of the information we have so far is for DOS 3.3. 
The easiest way to get DOS 3.3 is to choose DOS 3.3 in the ‘‘format’’ 
choice on your System Utilities and initialize a blank disk with it. Anytime 
you boot the initialized 3.3 disk, DOS 3.3 will be placed in your //c's 
memory.) 


CHANGING DOS 


Depending on what kind of Apple you have, you've got 32K (real old 
Apples), 48K (pretty old Apples and no 16K card), 64K (recently old 
Apples), or 128K (Apple //c or big K card in old Apple slot). Each K 
stands for 1,024 bytes, but we'll round it off to 1,000 to make things 
simpler. Thus, you have 32,000, 48,000, 64,000, or 128,000 bytes of 
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RAM, or changeable memory. (If you have a 48K machine with a 32K 
RAM card, leave the room.) Since DOS is loaded into RAM from your 
disk (no DOS doesn't live in your computer), you can change the contents 
of DOS by changing the values in the area where DOS is stored. Each 
location, or address, is assigned a value from 0 to 255. It is easy to PEEK, 
or look at, a value at any location—(example: PRINT PEEK(300) will 
produce a number, 0-255)--апа POKE in a new one if you want—(example: 
POKE 300,123 will change that number to 123). DOS BOSS rearranges 
DOS according to your commands by POKEing, or inserting, new values 
into memory for you. Additional possibilities are endless. Here are a few 
catalog customizations you can make on your own. Any of them may be 
entered directly or made part of a program. If you want to keep one of 
these features, INIT with it POKed in, or add the POKEs to THE END OF 
your appended POKE file. 


A POEM 
by Reed Righthead 


An Appler we knew, just for fun, 
Typed ‘CALL 64 8 7 1." 

But every other time, 

?Syntax Error was the crime, 
Even though he had committed none. 


BEWARE! 


Messing around in DOS can cause S-T-R-A-N-G-E things to happen, 
and before you finish this section, you (or we) may have a malfunctioning 
computer. Fear not! To fix things, simply turn off the power and reboot. 
(Remember on Apple //c’s to wait fifteen seconds before turning on your 
computer again. You may end up fiddling while ROM burns.) Remember, 
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no permanent harm can ever be done to your Apple itself by just pressing 
keys. (Of course, if you press your keys with a jackhammer, you may ruin 
. . . the jackhammer.) 

Beware again! There is also a slight chance that you could foul up a 
disk as well (if you typed other than the POKEs given here), so use an 
expendable disk (a copy) to play around with. If the disk does get messed 
up, you can always erase and reuse it by INITing it. Before trying each 
new POKE, we advise you to POKE back in the original values listed after 
each example. 


PRINT PEEK (44611) 


Your Apple should answer with a 2. Let’s change it to a 1: 
POKE 44611,1 


Now PEEK again, and there’s your 1! Next, CATALOG a disk and notice 
the change you have made. This POKE changes the number of digits in 
your catalog sector numbers to 2 instead of 3. Have you ever seen a file 
bigger than 99 sectors? Not very often, right? So why clutter up the 
catalog with extra 0’s? (Note: If you really like clutter, POKE in a 4 or an 
11!) 

A possible drawback to 2-digit sector numbers: you will scramble 
your volume number (on the screen, not in memory). A solution: Omit 
the number with DOS Boss. Another drawback: If you are using DOS 
Boss's multicolumn catalog, this POKE will really make a temporary 
mess of your columns! (Normal value: 2. POKE a 2 back into 44611 and 
continue.) 

Reminder for Apple іс” ers: Boot a DOS 3.3 disk. Give your ProDOS 
a vacation.) 
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POKE 44459,234: POKE 44460,234: POKE 44461,234 


Eliminates the blank line after the word CATALOG; 234 means ''do 
nothing," and these POKEs do nothing instead of printing a carriage 
return. (Normal values: 32,47,174.) 


POKE 44486,234: POKE 44487,234: POKE 44488,234 


Eliminates the blank line after the Disk Volume heading. (Normal values: 
32,47,174.) 


POKE 44452,24: POKE 44605,23 


Lets twenty file names appear before stopping for a keypress instead 
of the normal eighteen. POKE in any numbers. Always make the first 
POKE value one number larger than the second. (Normal values: 22,21.) 


POKE 44541,173: POKE 44559,186 


The first POKE replaces the space (value 160) after the file-type code 
with a hyphen. The second one puts a colon after the sector numbers. 
Experiment with other values from the ASCII Screen Chart in the DOS 
BOSS Book Appendix. (Normal values: 160,160.) 
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POKE 44567,12 


Shortens your maximum file-name length to thirteen characters (on the 
screen, not in memory). Normally this number is 29, for thirty maximum 
characters. The number of characters is always one less than the number 
POKEd in. Every file name shorter than the maximum fills the remaining 
space with spaces. (Normal value: 29.) 


POKE 44578,234: POKE 44579,234: POKE 44580,234 


Cancels all carriage returns after file names. With these 234's POKEd 
in, play with POKEing some small numbers in at 44567 (like 2 or 12; only 
certain numbers will work) and you can have your own version of the 
multicolumn catalog. (Normal value: 32,47,174.) 


POKE 44505,234: POKE 44506,234 


Shows deleted files in your catalog and throws in a free bonus inverse 
character to the right of each. (Normal values 48,74.) 


The following changes are pretty much worthless, but fun anyway: 


POKE 44596,234: POKE 44597,234: POKE 44598,234 


Prevents your catalog from stopping when the screen is full. (Normal 
values: 206,157,179.) 
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POKE 44599,234: POKE 44600,234 


Stops your catalog at each file name, waiting for a keypress on each 
one. (Normal values; 208,8.) 


POKE 50,128 


Makes your catalog invisible (in case you're embarrassed by it). Program 
listings are invisible, too! (Normal value: 255.) 


POKE 44617,234: POKE 44618,234: POKE 44619,234 


Makes all sector numbers and your volume number appear as 000s! 
(Normal values: 217,164,179.) 


POKE 45620,234: POKE 45621,234 


Repeats your first file name forever! (Normal values: 105,35.) 


FOR X= 43439 TO 43443: POKE X,7: NEXT X 


This obnoxious change replaces the word FILE (+ space) with five 
Control-G beeps in the “ЕШЕ NOT FOUND”’ error message. You can 
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POKE beeps (7), carriage returns (13), line feeds (10), or anything into 
any error message and into the volume message and other unusual places 
as well. Each POKE, of course, replaces whatever character was there. 
(Normal values: 70,73,76,69,32.) 


POKE 43378,42 


Now you've replaced all DOS error message beeps (invisible, but audible 
Control-G's) with visible, but inaudible asterisks! (Normal value: 7). 


MORE DOS NOTES 


If you're new to the Apple, all the different DOS's are confusing. With 
all new Apples you get ProDOS, but your System Utilities disk can be used 
to format a DOS 3.3 disk. Most of the older software is on DOS 3.3 
disks, which run fine on Apple //c’s, //e's, and most ШІ + °ѕ. 


But the Manual Said ... 


Okay, now hang on to your hats, gang. Your Apple //c manual said 
the Apple //c does not support DOS 3.2. Naturally, we had our Break The 
Rules Dept. see if that was true. We booted the BASICs disk and then 
inserted a 3.2 disk and voilà! no problem on the Apple //c. Since you 
didn't get a BASICS disk with your Apple //c, you're on your own on that 
score. Maybe Apple, Inc., will sell you one. On the other hand, if you 
have a DOS 3.3 System Master, BRUN a program called ВООТІЗ, and 
when the prompt comes up, stick a 3.2 disk in the drive and hit RETURN. 
This too will get 3.2 disks to operate on your Apple //c. The same works 
on Apple //e's and ПЛІ + 's. 
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The Manual's Way ... 


The Apple //c manual says you can change all of your DOS 3.2 files 
into DOS 3.3. Then you can change from 3.3 to ProDOS if you want. Use 
the System Utilities disk to ‘‘Change Disk Format’’ to do this. If you 
really want consistency on your Apple, change everything to ProDOS or 
DOS 3.3. With Apple //c's, use the System Utilities to do all of that. With 
Apple //e’s and II/II+’s, you can change all the 3.2 disks to 3.3 with а 
program called MUFFIN, found on your DOS 3.3 System Master. 


Stickers 


Now, if you don't want to change anything, or if you have so much 
software it'd take you forever to make all the changes, label all of your 
disks with stickers designating the DOS type. This may actually be sim- 
pler, since some DOS 3.2 disks don't like to be MUFFINed into DOS 3.3, 
and later on you'll probably have disks with CP/M, Pascal, FORTH, and 
who knows what else on your disks. You can buy nice little round blank 
stickers from the stationery store, any color you want. Mark them with the 
appropriate operating-system designation or cut out the following and tape 
them on your disks: 


зо зо rt 32 daa dil 
_ @3.2 зә 632 632 63.2 d32 _ 
_ «3a 632 өз. (632 63.2 зз _ 


You should do the same for your other disks with other DOS's. 


3:3 
ProDOS 
Pascal 
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DE-MUFFIN 


There may be situations where you will actually want to change DOS 
3.3 files into DOS 3.2. Even with the Apple //c System Utilities that 
changes all kinds of formats, you can't do that. However, there are several 
de-MUFFIN (or NIFFUM) programs that have been published. Check 
back issues of Nibble (vol. 1, no. 8 and vol. 2, no. 2). One of the first 
things to de-MUFFIN is the 3.3 FID program (DIF?), handy to have 
around in any format. (Note: In 3.2 FID, Free Space on Disk will read 
high by 93 sectors.) 


WHY GO BACK? 


If you have a brand-new sparkling white Apple //c, you may be scratching 
your head wondering why use any of that ‘‘old stuff.’’ With ProDOS you 
have the state-of-the-art (until a week from Tuesday, at least) DOS, and 
there's not a whole lot of need for old DOS 3.3 or the ancient DOS 3.2 
software. You can get the NEW STUFF!! 

Back in the old days when there wasn't much software for the Apple, 
users used to turn out software by the crateload. They'd place it in the 
public domain, which is another way of saying, they gave it away free. A 
lot of this early software was pure junk, but a lot of it was pretty good and 
some was fantastic. The various Apple user's groups collected thousands 
of these programs and helped give them away on club disks. The gamut 
runs from 3.2 to FORTH and Pascal operating systems, and there's plenty 
more; so if you want to get some software cheap, don't stick your nose up 
at non-ProDOS software. 


FILE.NAMES AND DOS 


If you use ProDOS, you can't have spaces between your file.names. 
Your Apple //c manual suggests that you name all of your files without 


DISKS AND DOS 155 


spaces, even on DOS 3.3 where spaces are welcomed. Then if you change 
the DOS 3.3 files to ProDOS, you won't get messed up. Your manual has 
a good idea there. 


уу ОО 2 AA 


GISK ІШІНЕ 254 

а nas HELL 

| йй4 *5*8Z5*! BILLS 
Bo “PROFIT? SHEET | 
I 4 
T 


INN N 


am $-REPORT 
Mae жж LISTING 


\ 


% 


%% 


% 


FILE-NAME VIOLATIONS 


For those of you who still have old Apples with no lowercase adapters, 
there is finally a trick you can pull that is not possible with the newfangled 
Apples that have lowercase built in. You'll need Beagle Bros Global 
Program Line Editor for this one. (Why do you think we're telling you 
about it?) The DOS 3.2.1 manual says that file names must start with a 
letter, but with no lowercase adapter, you can include lowercase characters 
in a file name and they will appear as nonletter characters on the video 
screen. For example, a lowercase D will appear as a $, etc. So it's easy to 
call a file *SREPORT"' or '**LISTING"' or ‘““%#&@BILLS.”’ If you want 
to indent a file name in your catalog, a lowercase @ is a space! Here are 
the equivalent upper- and lower-case characters: 


156 THE BIG TIP BOOK FOR THE APPLE II SERIES 


Uc LC UC LC UC LC 
A ! J * S 3 
B = K - Ж 4 
С # L U 5 
D $ M V 6 
E % N А W 7 
F & 0 / X 8 
G А Р 0 Y 9 
H ( Q 1 Z : 

I ) R 2 @ sp 


By the way, if you don’t have the Global Program Line Editor disk, 
go buy one now. It’s worth every penny! 


FLASHING AND INVERSE FILE NAMES 


To get flashing and inverse files names, in the immediate mode, type 
<RETURN> or FLASH «RETURN». Then PRINT “FILE МАМЕ” 
<RETURN>. Type SAVE and use the cursor moves to trace over your 
flashing or inverse file name and <RETURN>. CATALOG your catalog, 
and take a look. The only way to LOAD such a program is the same way 
you SAVEd it. Type LOAD or RUN, and trace over the file name with the 
cursor. It works! 
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MECHANICAL MEMORY MOVER 


Have you ever wanted to move a chunk of memory from within a 
program without going into machine language or using Applesoft's clunky 
CALL -468? Well, here's an idea; it may be a little slow, but it works. 
Just BSAVE the memory chunk and then BLOAD it where you want it. 
For example, to store the text screen ($400-$7FF) at A$6000, these lines 
could be in your program: 


1000 PRINT CHR$C4); "BSAVE TEXT,A$400, 
L$3FF" 
1010 PRINT CHR$C4);"BLOAD TEXT, A$6000" 


The following will clear the screen, pause, and then bring the text screen 
back where it belongs. 


2000 HOME : FOR W = 1 TO 2345: NEXT 
2010 PRINT CHR$C4); "BLOAD ТЕХТ" 


PREBOOT NEWS 


You can turn your Apple on or do a PR#6 before inserting a disk. It’s 
reasonably safe to insert a disk into a drive that is running . . . we think. 
On Apple //c's we avoid the CHECK DISK DRIVE message by flipping 
the switch on with the door open and the disk in the doorway (what else 
would you call it?). When the drive starts spinning, we insert the disk all 
the way and slam the door shut . . . gently. This allows the spinning head 
to center the floppy disk and prevent a CHECK DISK DRIVE message. 
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MIDDLE FINGER SAVER 


Think of the time you'll save! In spite of what the DOS 3.3 manual says, 
no commas or spaces are necessary when you do a MON I,C,O or a 
NOMON І,С,О. Just write MONICO or NOMONICO. Another comma 
recommended by the manual is the one after the CATALOG command and 
before the drive number. CATALOGDI gets the job done fine! 


CLOSED DEPARTMENT 


You don't need to use a file name when you CLOSE a file. 


DELETE HELLO 


If you need more space on a disk, consider deleting your HELLO or 
STARTUP program to save the amount of space it occupies. You won't be 
able to boot the disk, but you can still use it! 


CASSETTE TIP FOR DISKERS 


Keep your cassette player within reach in case you lose DOS 3.3 and are 
unable to SAVE to disk. Just follow the instructions in your Apple 
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manual, SAVE to tape, reboot, and LOAD from tape. (This tip is only for 
old Apples and DOS 3.3.) 


MULTISTATEMENTS 


In Applesoft you can type multiple commands in the immediate mode 
separated by colons. For example: 


HOME: INVERSE: VTAB 10: PRINT "FUB FUB" 


It doesn't work so well with DOS commands, though under DOS 3.3, try 
this, then CATALOG your disk: 


SAVE PROGRAM: DELETE PROGRAM 


TRY THIS, TOO 


BSAVE LONG PROGRAM,A$9000,L$7FFF 


This BSAVE will zap your text screen into lo-res and make little *'vibra- 
tion" marks on some of the lo-res color plots and even click the speaker 
(sometimes). 

A We-Hope-We-re-Not-Too-Late Warning: Don't hit Reset during 
disk access; you could foul up your disk. A good rule is never to hit Reset 
while the “Іп Use” light is on. Open the drive door (gasp!) first if you must. 


INVERSE INIT 


You can INIT a DOS 3.3 disk with an inverse greeting program name, 
but you can't Master Create it without changing the name to normal 
text. 
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B-READER 


Some word processors, like Bank Street Writer, produce Binary files 
instead of Text files. We all know that ProntoDOS's TYPE command lets 
you print Text files, but how do you read a Binary file? Run this DOS 3.3 
program to find out. 


10 PRINT CHR$C42;"BLOAD FILE, A9000" 

20 LNGTH=PEEKC43616)+PEEK С43617) +256 

30 FOR L=9000 TO 8999+LNGTH: PRINT 
CHR$CPEEKCL22;: NEXT 


If you’re working in ProDOS instead of DOS 3.3, substitute the 
numbers 48857 and 48858 in the parentheses in line 20. 


CRUISING THROUGH DOS 


Boot DOS 3.3 and take a cruise through DOS! The usual ‘‘trip’’ of this 
kind would be in the monitor, looking at a bunch of two-digit hex 
numbers—a real drag. Let’s make things more interesting! First, boot a 
normal disk whose DOS hasn’t been altered by DOS Boss. Now write this 
little program: 


10 FOR X=43380 TO 43401 
20 PRINT PEEKCX);" ''; 
30 NEXT X 


RUN it and you will see a string of numbers. Pretty exciting, huh? 
Now, change line 20 to: 


20 PRINT CHRSCPEEKCX)); 


Now RUN it again! "LANGUAGE NOT AVAILABLE”’ magically ap- 
pears! What's this? You have just uncovered DOS's first error message! 
CHR$(PEEK(X)) means the ‘‘character whose ASCII value is X.” Now 
change line 10 to: 
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10 FOR X=43380 TO 43581 


and you’ll see all fourteen DOS 3.3 error messages strung together! To 
further examine these mysterious characters, let’s add two more lines to 
our program: 


15 NORMAL: IF PEEKCX)> 127 THEN INVERSE 
25 IF PEEKCX)>127 THEN PRINT 


RUN again and you'll notice that the last character of every error message 

is inverse. Actually, line 15 tells it to be inverse if it has an ASCII value 

higher than 127. Each Apple keyboard character and control character has two 

ASCII values, sometimes called the **low-byte"" value and the ‘‘high-byte’’ 

value. The high-byte character at the end of each error message tells the Apple 

where the end of the message is and when to quit printing letters to the screen. 
Now try these immediate mode commands: 


LOAD 22Ү2Х 


You get а “FILE NOT FOUND,” unless you have a program named 
"ZZYZX." Now... 


POKE 43452,68 
LOAD 22Ү2Х 


You should get a double error message because you have POKEd in, 
or changed, the high-byte D in “FOUND” to a low-byte D (value 68 at 
location 43452). Now the Apple thinks that error message #5 is “ЕШЕ 
NOT FOUND VOLUME MISMATCH.” It prints until it finds а high-byte 
character, the H іп ‘‘MISMATCH”’”’ instead of the D in “FOUND”! 
Repair the damage before continuing by POKEing the high-byte value for 
D (196) back in where it belongs: 


POKE 43452,196 


There are other places to look, of course. If you want a really long 
trip through all parts of memory, change line 10 to: 


10 FOR X=0 TO 65535 
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You will see all kinds of stuff—beeps, backspaces, line feeds, carriage 
returns, little pictures of animals (just kidding), and the big feature every 
so often: real words! If you've been RUNning some programs, you'll 
probably see parts of the old program listings. If you've just BRUN or 
BLOADed the 3.3 Master Create program, you'll even find a funny 
message from the author somewhere between locations 2500 and 3900, 
only meant to be seen by prying eyes. So go ahead and pry; SAVE your 
program, BLOAD MASTER CREATE. LOAD your program and RUN. 

Back to DOS 3.3—change the values in line 10 to 43140 and 43338 
and you'll find the twenty-eight DOS commands followed by some gar- 
Баре and ‘‘VDSLRBACIO.”’ Those are the initials for VOLUME, DRIVE, 
SLOT, LENGTH, etc.; the one-letter codes used in DOS! POKE in new 
letter values if you want. 

Change line 10's numbers to 43700 and 43715. That's “АРРІ/Е5ОЕТ,” 
the name of the program Apple tries to run if you type FP and don't have 
Applesoft in ROM! (Applesoft II--'s, //e's, and //c's have Applesoft in 
ROM and Apple II's have Integer in ROM.) 

Now, change line 10 to: 


10 FOR X=46010 TO 45991 STEP-1 


RUN it and “DISK VOLUME BARSBAIT"' appears! That's where the 
Apple gets the message to print at the top of your catalogs! ‘‘BARS’’ seem 
to be throwaway characters, so we've used them in DOS BOSS to lengthen 
the **Disk Volume’’ message. Have you guessed ‘‘BAIT’’ yet? How about 
Binary, Applesoft, Integer, and Text, the codes for your catalog files! 

Look around some more; DOS goes clear up to 49151. Above 49151 
is BASIC. You can look there, too, if you want! It's your computer! 


20 WAYS TO BOOT A DISK 


More useless Apple info from Kevin Barr: 


RULES 

All assume DOS 3.3 is booted (!) 

"]" means typed from Applesoft 

“ж” means typed from the monitor (CALL-/5/ to enter monitor) 


19. 


20. 
21. 
22. 


23. 
24. 


Бәс Мр ОО E ON qc press 
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Turn your Apple off and back on. 
JPR#0000000000000006 

1РЁ#$6 

IN#6 

*C6006 

«б Ccontrol1-P) 

«300: 4C 00 СЄ М 3006 

JCALL 50688 

JPOKE 1012,0 

JCcontrol-Reset) 

„300: A9 CS 48 49 ҒҒ 48 60 N 3006 
JPRINT CHR$C420;"PR£'";PEEKCS7375) 
JOREMe 


JCALL-151 
*805: 8A М 05666 
*36: 00 C6 


*3F9: 00 C6 N Ccontrol-Y) 

]РОКЕ-23183,149: POKE-23182,254 

JCATALOG 

*B1: 4C 00 C6 

*3D0G 

*OE81: A9 06 4C 95 FE 

JO PRINT "This is useless." 

15 FOR Х=2053 TO 2060 

110 READ P: POKE X,P: NEXT 

15 CALL 54630 — 

120 DATA 140,201,49,52,56,52,56,0 

JRUN 

IPR#0 

15 А%-"В00Т DOS":PRINT A$ 

110 FOR X=1 TO 8: 
P-P*ASCCMID$CA$,X,12020: NEXT 

120 A$SSTR$CPO: P=0: FOR X=1 TO 3: 
P=P+ASCCMID$CA$X ,1)): NEXT 

130 А$=5ТЮ$(Р): AS=RIGHTSCA$,1) 

140 РОКЕ 2054, ASC CA$):RUN 


IRUN 

JPOKE 1014,0: POKE 1015,198 
J&BÜOTDOS 

JPOKE 12,198: POKE 11,0 
JPOKE 10,32 


JPRINT USRCBOOTDOS) 

*44: 6 N A229G 

*38: 00 Сб М А8516 

*A884: 42 4F 4F D4 N 1909: 00 00 N 
BEAF: А9 06 4C 95 FE 

*BOOT 
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25. «8000: АО 00 AD EA CO B9 29 80 FO 1C 20 
FO FD AD ЕЭЗ CO АЗ ҒҒ 20 AB FC 2C ЕВ СО 
A2 0A A9 ҒҒ 20 A8 FC CA DO F8 C8 4C 05 
80 4C 00 C6 AD C2 CF CF D4 А0 C4 CF D3 
8D 00 N 8000G 


BOOT MAKER 


Did you ever want to make someone boot your disk before they could 
RUN your program? Here is a simple way to do it: 


Boot DOS 3.3 

Put a blank disk in drive 1 

Type POKE 47721,123 «RETURN» 
Type NEW <RETURN> 

Type INIT HELLO «RETURN» 


"Ad чай adi E 


In a minute or so, you will have a new master disk from which you 
will make copies. Use LOAD and SAVE (or FID) to transfer your pro- 
grams to the master disk. Now put this command near the start of each of 
your programs: 
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1 IF PEEK (47721) <> 123 THEN PRINT 
CHR$C42; "PR#"; PEEK (43626) 


Location 47721 is unused by DOS 3.3. PEEK(43626) is the most recently 
used slot number; 123 could be any number, 0—255, as long as it matches 
the POKE number in step (3). Odds are 255 to 1 that your disk will be 
booted before your program is RUN. 


MASTER CREATE 


Question Number One 


The most-asked question over the Beagle Bros phone is Ном can 
I make Key-Cat run automatically when I boot my disk?” (Key-Cat is on 
the DOS Boss disk.) The answer is easy. Just BRUN MASTER CRE- 
ATE. It will ask you what you want to call your greeting program. Enter 
Key-Cat or whatever you want to call it, and that's it! Now Key-Cat will 
run when you boot! Another way to make it run would be to put a PRINT 
CHR$(4); “RUN КЕУ-САТ” as the last statement in your greeting program. 


Disk Fixer 


If you've got a disk that won't boot or is giving you a bad time in 
some other way, there's just a chance that you can repair it with the 
Master Create program on your DOS 3.3 System Master disk. Just BRUN 
MASTER CREATE and insert the disk you want to fix. It will rewrite 
tracks 0-2 (DOS) for you, and maybe that's where your problem was. 
While you're at it, Master Create will let you change the name of your 
disk's greeting program, too. 


166 THE BIG TIP BOOK FOR THE APPLE II SERIES 


WHY BUY MORE THAN ONE DISK DRIVE? 


1. You can make faster disk copies. 

2. You can use certain software that requires two drives. 

3. You will have a backup drive when one goes bad (it happens). 

4. You can have immediate access to twice the data. 

5. You can get rid of that extra $300 in the dresser drawer. 

6. If you have an Apple Macintosh and were wondering when this 

book is going to help you, you have just found out. 

WARNING DEPARTMENT 


Rumor has it that you should always open your drive doors and/or remove 
all disks from your drives before turning off your Apple. You risk disk 
damage if you don't. And while we're issuing warnings—if you leave your 
Apple on and unattended for a long time and a temporary power failure 
occurs, the Autostart ROM will attempt to reboot. 1/ your drive door is 
open or no disk is in your drive, your drive could run indefinitely (or until 
the next power failure, whichever comes first). 


DISK ZAP? 


Just how fragile are diskettes? Why not find out? Take a disk that is 
expendable and place it an inch or two from a magnet. Will it still boot? 
Lean it against your color TV screen. Now call the dog over to the 
Apple... . 

Disks can be zapped in many ways but are surprisingly tough when 
you consider what they consist of. We couldn’t resist cutting one open. 
Can you? 
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DOS TRICKERY 


Here's a DOS change you can do without DOS Boss. If you PEEK 
location 43698 ($AAB2), you'll find a 132 ($84). That is the high-byte 
value of Control-D, DOS's code character for use in PRINT statements. 
Now POKE in a 192 (POKE 43698,192), the high-byte value for a @. 
You have now changed the code character from Control-D to @. Now to 
execute a DOS command like CATALOG from a program, you can type 
PRINT ‘‘@CATALOG.”’ 

This is just one more way to confuse people and customize DOS to 
your needs—and it's kind of nice to be able to see the code character! 


BUT HOW DO YOU READ THE LABEL? 


You will probably ignore this hint; we do. If you are going to leave 
disks all over your desk, you should place the label-side down so that they 
aren't damaged by dirt, etc., on your desk. The disk drive head reads the 
bottom of your disk through the oval hole. The hole on top is for the 
pressure pad. 


IN USE? 


4, 
х} ^ 
9: 
* ~ 


ЖЕ 


We just decided last Tuesday that it is okay to type keyboard com- 
mands while your drive’s ‘Чт Use” light is lit as long as you have а 
prompt and flashing cursor. The Apple drives run for about one second 
after they are finished doing whatever it is they do in there. No one 
anywhere knows why. 
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RIGHT PROTECTORS 


Most of the write-protect tabs we have used come off or get messed 
up going in and out of our disk drives. A handy new product called Scotch 
tape works much better! Some computers rely on a beam of light to check 
for write protection, so their tabs would have to be opaque to work. Test 
your drives to see. 


TWO-SIDED DISKS: PART I 


$ure you can use both sides of your ''single-sided'' disks. This can 
save you both money and storage space. Use a regular paper punch to 
make a half-circle notch on the edge of a disk jacket exactly opposite the 
original write-protect notch. Then INIT the second side just like you did 
the first. Disk manufacturers don't usually test both sides of disks, so you 
do run the risk of a bad sector now and then and you could lose some data. 
If you make backup copies anyhow, this shouldn't be a problem. By the 
way, the small off-center hole in the disk jacket isn't used by Apple's 
DOS. 


TWO-SIDED DISKS: PART II 


We have been known to advocate your using both sides of a disk. 
Here are two reasons not to— 


1. А stack of disks is harder to search through with stuff on both 
sides. Solution: Label both sides' contents on one side of the 
disk. 


DISKS AND DOS 169 


2. When you use the **wrong"' side of a disk, it spins the **wrong"' 
way and can mess up the friction pad (or whatever it's called) 
inside the disk itself. This is potentially a b-i-g problem, and our 
good friend, Pete the Pessimist, says you can mess up not only 
the disk, but your drive as well! Pete also refuses to go outside of 
his closet without a hard hat. 


TWO-SIDED DISKS: PART III 


If you decide to ignore the preceding warnings, here's a tip we've seen 
widely used—put ProDOS and 3.3 versions of your favorite utilities or 
whatever on opposite sides of a disk. 


AHA! A USE FOR VERIFY 


When you want to READ a text file, you first have to OPEN the file. 
If the file doesn’t exist, you'll get ап “ЕМ” OF РАТА” message and 
you'll acquire a new one-sector file name in your catalog, even if you used 
ONERR to trap the error. Phooey! To prevent this, VERIFY the file first, 
then OPEN it. If VERIFY doesn't find the file, ONERR catches your 
mistake, and life goes on with no file added to your catalog. 


D$ FIX 


This program won't catalog a disk: 


10 D$;CHR$ (4): REM CTRL-D 
20 PRINT "WATCH..." 
30 PRINT D$;"CATALOG" 
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The problem is that D$ (Control-D) in line 30 is at HTAB 9 because 
of the semicolon in line 20. One remedy that always gets your D$ to 
HTAB | where it will function is: 


10 D$=CHR$C13)+CHRSC4): REM CARRIAGE 
RETURN * CTRL-D 


Using that combination you can do things like the following: 
20 PRINT D$"OPEN FILE": PRINT D$"READ FILE" 


However, when you CLOSE a file, use the old CHR$(4) without the 
carriage return. You know why? If you are WRITEing to a file, and the 
CHR$(13) + CHR$(4) D$ is being used, you will get the added carriage 
return, CHR$(13), written to your disk. Maybe you should have: 


10 D$ = CHR$C13) + CHR$C4) : 06$ + CHRSC4) 


The C in DC$ is to remind you to use it when you CLOSE a file. 
Also, while we're on the subject . . . do not do the following: 


10 D$ = CHR$C4) + CHR$C13) : REM THE 
CHR$C4) IS FIRST - WRONG 


If you place the CHR$(4) before the CHR$(13), it won't work. Remem- 
ber, place the CHR$(13) first; then the CHR$(4). 


SEMISMART RUN COMMAND 


ProDOS's hyphen command is a handy animal. The command -FILENAME 
will automatically RUN an Applesoft file, BRUN a binary file, or EXEC a 
text file. What it won't do is BLOAD a picture file or RESTORE a 
variable file. Hey, no command is perfect. 
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? ILLEGAL MESSAGE 


If you type RENAME *'OLD.FILENAME,ANOTHER.FILENAME'"' us- 
ing ProDOS, you'll get a ‘‘Syntax Error’’ message. The problem is the 
new file name is longer than fifteen characters. Come on, ProDOS—why 
not just truncate the name at fifteen like DOS 3.3 does at thirty? 


BOOT DRIVE 2! 


On an Apple //c, you can boot ProDOS from a slot-6, drive-2 disk by 
typing :PR#7. The leading colon makes the //c take this as an Applesoft 
command, not a DOS command. If you try to boot DOS 3.3 from drive 2, 
it won't work, but the results are at least interesting. 


DOS CONNECTOR 


Certain circumstances will disconnect ProDOS. If commands like CAT or 
PREFIX suddenly don't function, try typing CALL 976. If ProDOS com- 
mands still don't work, you'll probably need to reboot. Don't use this 
CALL in a program unless you want it to end at that point. 

One way to disconnect ProDOS intentionally on a //c or //e with an 
80-column card is to type :PR#3 (notice the colon). After doing so, try 
RUNning a program. You'll see line numbers all over the screen, because 
ProDOS has left you with the TRACE function in gear. 


NO MONSTERS ALLOWED 


Did you know that, with ProDOS booted, you can type a title of this 
paragraph and not get a ‘‘?Syntax Error? Wow—tell your friends! 
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/THE/SHOR/TER/THE/BET/TER 


ProDOS allows up to fifteen characters for disk (volume), subdirectory, 
and file names. If you’re into actually using subdirectories, you’ll be a 
happier, less-frustrated person if you keep those names short. Long path 
names are hard to remember, difficult to type, and generally a pain. 


PREFIX FIXES 


To see what the current ProDOS prefix is, type PREFIX. To set the 
prefix to the disk in drive 2, PREFIX,D2. To set the prefix to a subdirectory 
named ''SUB,"' type PREFIX SUB. To cancel all previous prefixes, type 
PREFIX/. 


PRODOS DISQUIK 


If you have an Apple //c or a 128K //e, you are equipped with a built-in 
"RAM disk” in auxiliary memory. To prove that it's there, type CAT,S3,D2. 
You should see an empty ProDOS catalog named ‘‘/RAM,”’ ready to be 
filled with about 119 blocks’ worth of files. (If you only have a 64K 
Apple, you'll get a “Мо Device Connected'' message.) 

To demonstrate the speed of /RAM, LOAD a large file from disk. 
Now set the prefix by typing PREFIX/RAM or PREFIX,S3,D2. Now type 
SAVE FILE and then CAT. You should see “ЕШЕ” in the /RAM 
directory. Now type NEW and RUN FILE. Pretty fast, huh? 

You can save three different hi-res pictures into /RAM and call them 
to the screen at lightning-fast speeds. Try this: 


10 HCOLOR= 3:D$ = CHR$ (4): PRINT 
D$"PREFIX/RAM" 
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30 HGR2 : FOR X = 1 TO 6: HGR2 : FUR Y= X 
* 9 TO X + + 99: HPLOT X + 19,Y TO X * 
19 + 149,Y: NEXT : PRINT D$"BSAVE PIC. 
"X'",A$4000,L$1FFF'": NEXT 

50 RESTORE : FOR X = 1 TO 10: READ P: PRINT 
D$*BLOAD РІС."Р",А%4000"; NEXT: DATA 1, 
2,3,4,5,6,5,4,3,2: GOTO 50 


Beagle Bros’ Extra К disk has a program called ‘‘Extra.Screens’’ that 
lets you store up to seven hi-res screens in auxiliary memory. It also lets 
you crop pictures so you can store even more. The possibilities are 
endless. Check our ads. If you’re intrigued by /RAM, you’ll really like 
Extra K. 


ILLEGAL BLOCK COUNT 


If you see a two-block ProDOS file in an unaltered ProDOS catalog, 
have someone examine your opticals. ProDOS files are always one block 
or three or more blocks in size. Exception: DIR files. 


DISK HANGER 


Someone wrote and told us you can punch a hole through the corner 
of an often-used disk, like a ProDOS boot-up disk, and hang it within 
reach of your drive. There’s a disk you’ll never lose! 

This is definitely not the worst idea we’ve ever heard. That one was 
from the lady in Tulsa who attached her floppies to the side of her monitor 
with refrigerator magnets. 
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BLOCK/SECTOR CONVERTER 


The strange relationship between ProDOS blocks and DOS 3.3 sectors can 
be charted by RUNning this program: 


10 PRINT CHR$ €C4)2"PR£1'": REM SET YOUR PRINT 
FOR CONDENSED TYPE 

100 DIM SC€1S),ABC1S): FOR I = 0 TO 15: READ 
SCI): NEXT 

120 FOR I = 0 ТО 15: READ ABCI): NEXT 

150 DATA 0,7,6,6,5,5,4,4,3,3,2,2,1,1,0,7 

155 DATA 0,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1 

310 PRINT SPCC 30);"SECTORS": PRINT "TRACK 
“;5РСС29;: FOR I = 0 TO 15: PRINT I; 
SPCC 3 + СІ < 10));: NEXT 

320 FOR TR = 0 TO 34: PRINT : PRINT SPCC TR 
< 1029;TR;" - "; 

350 FOR SE = 0 TO 15:BL = 8 * TR + SCSE):PT 
= ABCSE) 

360 PRINT SPCC 1 + «БІ < 100) + CBL < 1099; 
BL; CHR$ (65 + CPT = 1)); 

370 NEXT : NEXT : PRINT : PRINT CHR$ (4) 
"РЮО" 


PR# YOU-NAME-IT 


ProDOS lets any number 1-7 access any slot 1-7. Think hard and maybe 
you'll come up with a reason for doing this. 


10 SLOT = 1: REM THE SLOT YOU WANT TO 
ACCESS 

20 NUM = 5: REM THE NUMBER YOU WANT TO USE 

30 LOC = 48656 + NUM + NUM 

40 POKE LOC,0: POKE LOC + 1,SLOT + 192 

50 PRINT "TYPE PR£';NUM;" TO ACCESS SLOT 
"SLOT; "." 


This program should make PR#5 turn on your printer in slot #1. If it 
doesn’t, phone Steve or Woz. 


CHAPTER 15 


CATALOG 


CAT OR CATALOG WITH PRODOS? 


Just in case you didn't read your ProDOS manual or your Apple //c manual 
or missed it . . . there's a difference between what you get with CAT and 
CATALOG with ProDOS: 


CAT—40-column catalog 
CATALOG-—80-column catalog 


It’s simple to remember which does which. CAT is shorter just like 
40 columns. 


DOS 3.3 HOME CAT 


From Leif Rudd of Lincoln, Nebraska: POKE 44457,88, POKE 44458,252 
will clear the screen before every DOS 3.3 Catalog. 
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BUZZER 


1 HOME: LIST: BUZZ-49200 
2 А$="1/-"+СНА$(92): FOR A=1 
TO 48: B=PEEK(BUZZ): FOR 
C721 TO A: NEXT: X$=MID$ 
(А%,А-ІМТ(А/4)%4%1,1): VTAB 
3: HTAB 9: PRINT X$X$X$: 
NEXT: GOTO 2 


DOS 3.3 FILE-NAME TRICKS 


You can use the REM tricks we discussed in the *'List Tips’’ chapter 
to catalog file names, too. By employing DOS's RENAME function and a 
little ingenuity, file-name characters can ‘Баск ир” over their sector 
numbers, or have carriage returns or Control-J's inserted into them. 


*A 012 FILE #1 

FILE #2 —4d*m——C————CL.L— This file name is actually “АШИР! Е #2". 
*A 027 FILE #3 "RENAME PILE #9, А ШЕШІНЕ e #2 

* 062 FILE #4 


Without a utility like BYTE ZAP (from Beagle Bros), you can't have 
control characters and inverse characters in the same file name. 


PEEKING AT THE LAST FILE IN DOS 3.3. 


(Don't try this with ProDOS.) The following one liner will print the 
name of the last file accessed by DOS, as well as its starting address and 
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length (valid only if it was a binary file). Problem is, you can't RUN this pro- 
gram, you can only GOTO it (type GOTO 10) or use it within a program. 


Тр) PRINT “LAST FILE: 75% BOR C. *:42363/ TO 
43667: PRINT CHRSCPEEKCC));: NEXT 
PRINT “A™: PEEK "(636349 + 256 + PEEK 
©43635);",L"; PEEKC 436169) + 256 +, PEEK 
€43617) 


If the last disk command did not contain a file name (“САТАГОС” 
for example), then the first characters of the file name will be erased. 
The handiest way to use this program is as a GPLE Escape function. 
Then no GOTO is necessary! You could replace Escape W with an 
abbreviated form of line 10. 
Oops, almost forgot. If you want it, here’s a machine-language 
version of the same routine, without the address and length: 


ай eR aay Капан 


02рр- А0 00 LDY #$00 
02DF- B9 75 AA LDA %АА75,Ү 
02625 20 ED ГВ JSR $FDED 


Ü2E5- CB INY 

O2EG~ ЛЕ CPY #$1E 
О2ЕВ- 90 F5 BCC $02DF 
02EA- A9 8D LDA *$8D 


02ЕС= 20 ED FD JSR $FDED 
02EF- 60 RTS 
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After entering this code, type CALL 733 to execute it. In case you're 
new at machine language, to enter this program, type: 


CALL -151 «RETURN? 

200: АО 00 B9 75 AA 20 ED FD C8 CO 1E 90 FS 
A9 8D 20 ED FD 60 «RETURN» 

Control-C «RETURN? 

CALL 733 «RETURN? to execute 


INVISI-CALC? 


As mentioned elsewhere in this book (we forgot where), POKE 50,128 
will make a listing or catalog (except for inverse file names) invisible in 
DOS 3.3. 

This program reveals all the POKE 50 possibilities—anyone for 
secret codes? 


10 FOR X= 0 TO 255 

20 POKE 50,255: PRINT "POKE 50, ";Х;"; "; 
30 POKE 50,X: PRINT "TESTING 1,2,3,4,5..." 
40 NEXT X: POKE 50,255: END 


DOS 3.3 FILE ARRANGER 


If you are creating a DOS 3.3 disk where you want files in a certain 
order in your catalog, you normally have to SAVE files in the order you 
want them. Not so with Beagle Bros' File Arranger! First, INIT a new 
disk. Then type and RUN this: 


10 D$ = CHR$C4) 

20 FOR FILE = 1 TO 15 

30 PRINT D$;"SAVE A'SFILE 
40 NEXT FILE 

50 END 
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Now your catalog shows files named A1 through A15 (or as many as you 
want). To place a file at any position, say position A7, just LOAD 
PROGRAM from another disk, DELETE A7 from the new disk, and 
SAVE PROGRAM. It will appear in your catalog at position A7! Enter all 
of your other files where you want in the same manner. When you are 
finished, you can simply delete all of the A-numbers that are remaining, or 
RENAME THEM ‘‘*”’ or “777%” as separators. 


CONTROL-FIND 


Key in the following program: 


10 DATA 201,141, 240,21 

20 DATA 234,234 , 234, 234 

30 DATA 201,128,144,13,201,160,176,9,72, 
132,53,56,233 

40 DATA 128: REM 64= FLASH, O=NORMAL 

50 DATA 76,249,253,76,240,253 

60 FOR X = 768 TO 795: REM $300 TO $31B 

70 READ N: POKE X,N: NEXT 

80 POKE 54,0: POKE 55,3 

90 CALL 1002: REM RESET OR РК#0 KILLS THIS 
PROGRAM 


RUN it (nothing happens). Now, when you start keying in control charac- 
ters, they will show up on the screen. If you (or a sneaky friend) put a 
control character in a file name, when you CATALOG the disk, you will 
see the control characters displayed in inverse video. 


EASY RUNNER 


To RUN, BRUN, LOAD, BLOAD, EXEC, SAVE, BSAVE, DELETE, 
VERIFY LOCK, or UNLOCK (whew!) a program from the catalog with- 
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out having to type the program's name, simply move your cursor up the 
left margin (with Escape D or Escape I or Escape-up arrow), type RUN (or 
whatever), trace over the file name with the right arrow, and hit RE- 
TURN. Guaranteed no spelling errors. (Be sure to knock out the sector 
size numbers with the space bar.) 


DISK VOLUME 123 


(RETURN) 
075 STAR BORES 

033 DATA ВАЗЕ 
NAIL FILE 
041 KLUGE FILE 
024 NOISES 

041 ETC. 


ы 932 96 30 39€ 906 9€ 9€ 
o 
jab 
wy 


NOTRACE CATALOG 


The preceding tip can be messed up good if you RUN the following 
program first. 


10 PRINT CHR$C4)2; "CATALOG" 

20 FOR I*1 TO 47 STEP 2 

30 5 = SCRNC 7,1): IF 5 = 12 OR S = 13 THEN 
COLOR = S - 4: PLOT 7,1 

40 NEXT 


Line 30 changes the first character of each file name to a control character 
(on the screen only). And even though control characters can sometimes be 
seen, they can’t be traced! 


DOS 3.3 255-SECTOR HANGMAN? 


You can purposely or accidentally have a file take up more space on a disk 
than it really occupies in memory. To prove it, SAVE LARGE PROGRAM 
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(say 50 sectors). LOAD TEENY PROGRAM (say 2 sectors). SAVE 
LARGE PROGRAM. And finally, RENAME LARGE PROGRAM, TEENY 
PROGRAM. Now TEENY PROGRAM shows 50 sectors in the catalog! If 
you try the same thing on ProDOS, it won't work. ProDOS is too smart 
for that. 


PRODOS VS. DOS 3.3 SECTOR SIZE 


If you write the smallest Applesoft program you can in DOS 3.3, it 
will be saved as a 2-sector file. In ProDOS it will be saved as a 1-block 
file. However, the smallest text file saved under DOS 3.3 will be saved as 
a I-sector file. Also, ProDOS saves Applesoft files as BAS files instead of 
A files. You know why? ProDOS does not work with Integer BASIC, and 
so it doesn't do any good to distinguish between ‘‘I’’ and “А” files. There 
will never ever be any ‘‘I’’ files on ProDOS. DOS 3.3 treats its old friends 
better. 


LIST CAT 


Add this line to the beginning of any DOS 3.3 Applesoft program: 
10 IF N> 99 THEN N=1: PRINT "CATALOG" 


(There is a Control-D hidden between the first quote mark and the C 
of CATALOG.) 

Now try to LIST. You can’t. Notice you are presented with a *‘SYN- 
TAX ЕККОК” Applesoft can't seem to stand having a Control-D at 
HTAB 1 without trying to execute the commands following it! To make it 
execute, remove the last quote mark (completely legal in Applesoft). Now 
the LIST command will catalog!! The IF N99, etc., is just filler to get 
the Control-D on the left of the second line. 
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Creative (or Destructive) Possibilities: Change CATALOG to FP, 
and a LIST command will murder the program! Serves that guy right for 
trying to LIST your prized SUPERDATABASE program, right? Of course, 
no one would be rotten enough to change the command to DELETE 
SUPERDATABASE. (or INIT SUPERDATABASE? Never!!!) 


TITLE TIP 


You can start a file name with any character whose ASCII number is 
above 63. The DOS manual says you have to start with a letter but forgets 
to mention the at sign, underscore, exponent sign, square brackets, back- 
slash, and the lowercase equivalents of these characters. 


@DON’T BELIEVE [IT. 


According to the DOS Three-Point- Whatever Manual a file name must 
start with a letter. Not so! Shifted letters (М, P, and M) work too, as well 
as \ and [. Nice for differentiating types of files in your catalogs. 


BELIEVE IT 


None of the last file-name tricks work on ProDOS. ProDOS takes all 
the fun out of goofing up your files. Use DOS 3.3 for a good time. 


FILE NAMES AS TITLES ON DOS 3.3 


You have probably noticed the catalog titles in our multigame disks, 
where we separate Applesoft games from Integer: 
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CATALOG 
DISK VOLUME 123 
INTEGER 


*[ 053 TEXTTRAIN 
*I] 036 SUB SEARCH 
*[ 033 PICK-A-PAIR 


APPLESOFT 


*A 053 TEXTTRAIN/A 
*A 036 SUB SEARCH/A 
*A 033 PICK-A-PAIR/A 


The flush-left, underlined INTEGER and APPLESOFT headings help 
organize the catalog and separate one group of files from the other. Here’s 
how we do it! 


10 D$-CHR$C4) : H$-CHR$C8) 

20 H$- H$ + H$ + H$ + H$ + H$ + H$ + H$ + 
H$ 

30 FILES = "X" + H$ + "APPLESOFT" 

40 PRINT D$;"SAVE ";FILES$ 


Substitute the word you want for your titles in line 30. You can also 
replace SAVE in line 40 with DELETE, LOAD, or whatever. Accessing 
these ‘‘titles’’ is difficult without a program similar to the preceding one. 


LEGAL NAMES DEPARTMENT 


Variables must start with an uppercase alphabetical character (A-Z). (Pop 
your Apple //e or //c into lowercase and enter a lowercase variable name 
and LIST the program. All the variable names are now uppercase.) The 
second character may be A-Z or a digit 0—9 (or nothing). Characters after 
that don't count, but they have to be letters or numbers. 
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File names under DOS 3.3, however, may start with your choice of 
sixty-four normal or control characters (not to mention inverse and flash- 
ing), but not characters with ASCII values 32-63. File names may not 
contain commas. 


ILLEGAL MOVES IN PRODOS 


Since you can't have all the fun with ProDOS that you can with DOS 
3.3, try this: 


1. Put some file names with control characters and other *'illegal"' 
characters in some DOS 3.3 files. 

2. Using the System Utilities disk from ProDOS, transfer/change 
the DOS 3.3 files to ProDOS. 

3. Forget who gave you this tip. 


SPACE CAT 


Hey everybody! Double space your catalogs with a POKE 33,37! Mail 
your reasons for doing this along with $1 to: 


Bert & Bill 

Beagle Bros World Headquarters 
3990 Old Town Avenue 

San Diego, CA 92110 
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10 HOME: 
FOR Q=1 TO 5: 
READ OINK: 
POKE 1025+0, 01ІМК: 
NEXT: DATA 205 
197, 207,215,161 


DOS 3.2 AND 3.3 FAT CATALOG 


Here’s a little experiment that might teach you something about catalog 
formatting in DOS 3.2 and 3.3—INIT a new disk, DELETE your greeting 
program, and RUN this: 


10 PRINT CHR$C4);"MONICO" 

20 FUR X = 0 TO 150 

30 PRINT CHR$C4); "SAVE FILE »*";X 
40 NEXT X 


This will take a while, so go make a sandwich or take a shower (you 
do need one). Sooner or later, you will get a ‘‘DISK FULL” error 
message (around the 105th file name; less in 3.2) not because the disk is 
full (you've only occupied about 210 sectors), but because there is no 
more room for file names on the disk. 

CATALOG your new disk and you will see dummy file names FILE 
#0, FILE #1, FILE #2, etc. Up to FILE #104. Now try LOADing a 
program that doesn't exist (LOAD MUSH, for instance). Instead of the 
expected ‘ЕШЕ NOT FOUND” message, you will get a "DISK ЕШШ,” 
message—a protest by DOS that it is stuffed and can't think straight. 

You can use this disk to arrange files as we showed in our ‘‘File 
Arranger'' tip a few pages back. Once you have all the files you want on 
the disk, here's how to get rid of the dummy files. 
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10 PRINT CHR$C4);"MONICO" 

20 ONERR GOTO 50 

30 FOR X = 0 TO 104 

40 PRINT CHR$C4);"DELETE FILE #";X 
50 NEXT X : END 


Another interesting effect is to delete all but every fifteenth or so of 
your 105 files. Now you have a slower catalog! File that one under 
*How'd You Do That?” and show the gang. 


NO CAT 


POKE -21503,0 prevents a DOS 3.3 catalog (17 is the normal value at this 
address). 


CONT CAT 


CATALOG a disk with more than twenty file names. The catalog stops 
when the screen is full, right? Well, switch disks during the pause, and 
press any key to continue. What happens? Let us know; we were afraid to 


try it. 


SAME NAME 


By using DOS's RENAME function, two or more files can have the 
same name. Now only the top same-name file will be recognized until you 
RENAME it! We like to use the unimaginative but easy-to-spell title, “°”, 
several places in our catalogs as separators. 
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3.3 FORMAT PRO-CAT 


To make the ProDOS CAT command produce a DOS 3.3-looking catalog, 
type four POKEs—POKE 42200,10: POKE 42238,2: POKE 42324,7: 
POKE 42348,96. 

One of the big benefits of this new format is that you can Escape the 
cursor up the left side of the screen, type a command like RENAME, and 
then cursor-trace over the file name, just like in 3.3. Normally, there's 
only room to type one character (like a hyphen). POKE 42200 sets the 
file-name column, 42238 sets the file-type column, and 42324 sets the 
blocks column. The 96 at 42348 makes the Modified Date not print. 


CHAPTER 16 


APPLE II, APPLE I+, 
APPLE //e, AND 
APPLE //c 


APPLE I? 


Of course there was an Apple I. Back in the old days when computers cost 
megabucks and only corporations and the government could afford them, 
the Apple I was one of the first ‘‘affordable’’ computers for the home. It 
was around 10K (that is, $10,000). Of course, it only came with about 4K 
of RAM, and you had to supply vour own keyboard and there were no disk 
drives; only cassettes. Now that was fun! 


APPLE II 


After the Apple I, the Apple II arrived on the scene. It had its own 
case and keyboard. The early ones came with only 16K of RAM and 
additional 4K of RAM cost $100. It had Integer BASIC in ROM and 
most people were still using cassette tapes until DOS 3.1 and the disk 
drives arrived. They did not have the Autostart ROM, and upon 
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turning on your machine you had to boot out of the monitor. However, the 
Integer ROM also had the mini-assembler and monitor built in. The eight 
slots in the back of the machine made it expandable beyond early 
imaginations. 


APPLE II + 


This was essentially the same as the Apple II except they were more 
likely to come with 48K. The big difference was the BASIC ROM that had 
Applesoft BASIC instead of Integer BASIC and the Autostart ROM. Alas, 
they took the mini-assembler out of the ROM, and you had to get a 16K 
card or Integer card to get Integer and the mini-assembler. The early Apple 
П + owners bought a lot of Integer cards and 16K cards to get Integer, 
since so much Apple software was written in that version of Apple 
BASIC. Neither the Apple II nor П + had lowercase adapters, and so you 
had to buy a special lowercase chip to be installed behind the keyboard. 
Since it only had 40 columns, 80-column cards were a big item, and at 
$300 a pop, a lot of people learned to live with 40. 


APPLE //e 


This was the first big change that came in the Apple Il. They were 
loaded with 64K RAM chips, had a new keyboard, a special slot for an 
80-column card, built-in lowercase, auto-repeat keys, and could be ex- 
panded (easily) up to 128K. There were a lot fewer chips due to improved 
technology, and while the case and overall computer looked pretty much 
like the old Apple ПЛІ +, the insides were significantly different. Even 
though a lot of people don't know (or care), it is possible to replace the 
6502 microprocessor chip with the newer 65C02 chip that comes installed 
in the //c. This will allow //e owners to run software that takes advantage 
of the new opcodes in the 65C02. 
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APPLE //c 


This version of the Apple II really looks different from the others. How- 
ever, the main differences are inside. First, the Apple //c comes with a 
built-in disk drive, the 65С02 microprocessor, and it has по slots. It has a 
built-in RF modulator, serial ports (no parallel ports!), 40/80 columns, 
switchable keyboards (OWERTY and Dvorak), and a mouse/joystick/ 
paddles port. It comes with 128K instead of 64K, and you get ProDOS 
instead of DOS 3.3 in the System Utilities disk that comes with the 
computer. However, it works with DOS 3.3 and even DOS 3.2, which the 
manual says it does not support. (What do they know?) The power 
transformer has been taken out of the computer and put on the cord to keep 
it cooler inside. 


PROGRESS AND REGRESS 


The early Apples were built for what have become known as ‘‘hack- 
ers.’’ The hackers were undisciplined, self-taught programmers who would 
write programs by “һасКіпр” their way through code. They were tinker- 
ers, gadget freaks, and all-around fun-loving weirdos. Then came pro- 
grams like Visi-Calc, and the Apple became a practical machine for 
business users, as programs became ‘‘friendlier’’ (‘‘user friendly" has the 
same connotations as ‘‘idiotproof’’). Apple, Inc. began attending more to 
those people who couldn’t care less about learning how to program and 
wanted to do practical things like word processing, spreadsheet analysis, 
and database management. The mini-assembler in ROM was removed, 
but since Applesoft was so much more powerful and user friendly (there’s 
that term again), there weren’t too many complaints. With the Apple //c 
the slots were taken away so that the hackers were unable to easily hang 
everything from a Z-80 card to a speech synthesizer onto their machines. 
However, the Apple is still one of the few microcomputers with a built-in 
monitor, and with all of the built-in goodies on the //c, a lot of the 
peripherals that had to be purchased separately now come standard. 
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CONVERT PROBLEMS? 


If you're having problems with Apple's CONVERT program (it converts 
3.3 programs to ProDOS), you're not alone. We'd go over some of the 
problems here but, in a rage, someone destroyed our only copy of 
CONVERT. 


ENHANCED //e? 


You'll often see references to ‘‘enhanced’’ //e's or the ‘пем //е КОМ.” If 
you're not sure which model you have, the boot-up message at the top of 
the screen helps date your Apple. Pre-//e models reported ‘‘APPLE ||.” 
‘Apple |Г” means an older model //e. "Apple II’ means newer. Тһе 
Apple //c boots up saying “Арріе //с” but the following program shows 
that the old ‘‘Apple II” message is still hidden in ROM (but why?). 


10 REM APPLE //c ONLY 

20 5Т-64265: EN=ST+7: GOSUB 50 

30 ST=64771: EN=ST+8: GOSUB 50: END 

50 FOR I*ST TO EN: PRINT CHRSCPEEKCI)); 
60 NEXT: PRINT: RETURN 


Hmmm. Wonder if anyone at Apple ever considered making the 
Apple II+ boot up saying ''Apple II+” and the //e boot up saying 
'* Apple //e’’—nah, too simple! 


//с POWER OFF? 


Did it ever occur to you that turning a //c off using the built-in switch 
doesn't turn off the power supply, which is halfway down the cord . . . or 
does it? 
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NO-SCROLL RESET 


The //c and enhanced //e text display doesn't scroll up a line when 
you hit Control-Reset. Nice feature; too bad GPLE can't support the 
improvement. 


WHICH APPLE'S WHICH? 


Неге we go again... . 


10 A-PEEKC64435) : B=PEEK(64448) 

20 IF A=6 AND В=0 THEN PRINT "APPLE //с" 

30 IF А-6 AND В=234 THEN PRINT "APPLE //е" 

40 IF А-6 AND В-224 THEN PRINT “Enhanced 
APPLE //e" 

50 IF A«»6 THEN PRINT “APPLE II OR II+" 


CHAPTER 17 


MAINTENANCE 


COLOR =? 


If you're not getting the lo-res colors the Apple manual says you should 
(for example, color #8 should be brown, not red), try flipping your TV's 
"Automatic Color’’ switch off, and play with your contrast and brightness 
controls. When you have your colors where you want them, mark your 
controls for future reference. Another set of marks for your regular TV 
picture is handy, too. 


SQUISHY INVERSE? 


If your inverse characters are bleeding together and difficult to read, 
try turning the little black knurled screw near the paddle socket until you 
see what you want. 
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CLEAN YOUR HEAD! 


If you buy the disk drive head-cleaning kit that we bought, you'll notice 
that they forgot to tell you where the head is (top or bottom) on the Apple. 
It's on the bottom. Don't get cleaning fluid on your pressure pad; it's on 
the top. 

By the way, if you're not sure how to get the head spinning, try the 
following: 


POKE -16151,0 
To stop the spinning: 


POKE -16152,0 


AND FLOSS YOUR DOS ON YOUR 
APPLE ПЛІ + AND //e! 


Certain unexplainable, unpredictable, and completely maddening mem- 
ory losses and other errors can be caused by an accumulation of Gunk 
(technically, **Crud"') on the little feet of your ROM chips and the metal 
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*'teeth"" of your various cards. You can clean these metal surfaces with a 
nonabrasive pencil eraser and/or a cotton swab and denatured alcohol. But 
be careful! First, turn off your computer (leave it plugged in). Ground 
yourself by touching the metal power supply box inside your Apple. Pull 
the chips with a chip puller (ask your dealer for one; tell him you just want 
to borrow it to show to your wife). Or use a small screwdriver and pry the 
chips loose. Carefully and gently clean things one at a time so you don't 
get them mixed up. Get rid of all eraser dust, fingerprints, and cat hair. 
Carefully insert everything exactly the way you found it. 

If you have an unopenable Apple //c, none of the preceding works. 
Uncle Louie tells us he cleans his //c by giving it a whiff of his breath 
through the cooling vents. This tends to melt the plastic case, and Uncle 
Louie once knocked out a Breathalyzer machine; so we don't recommend 
Uncle Louie's method. The dishwasher didn't work either. 


SOUEAKY DRIVE? 


If your Disk II drive is driving you up the wall with a squee-eee-eak as 
it does its thing, it probably has a worn pressure pad. If you're good at 
taking things apart (aren't we all?) and getting them back together prop- 
erly, take the four Phillips screws out of the bottom of your drive and slide 
off the metal case. Remove the two Phillips screws that hold down the 
horizontal green board inside. Carefully unmount the green board (watch 
what you're doing; you have to put it back!). It will remain connected to 
the drive by wires. Now, insert a disk in the drive and close the drive 
door. You will see the pressure pad (a little cottony thing about V4" in 
diameter mounted on the end of a black arm) on top of the oval slot of the 
disk. Turn the pressure pad's black screw about a quarter turn. This should 
rotate it just enough to stop the squeaking. Or you can fluff the pad up 
with a screwdriver or something. 

Warning: All of this will undoubtedly void your warranty if anyone 
finds out what you've done . . . but it's your equipment, right? 
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Fressure Fad 


N 


рм 


Control 
(Dan t 
тесе!) 


| If you mess up your drive, forget where you read this. | 


While you've got the cover off, watch your drive work; it's fun! INIT 
a disk, DELETE some files, CATALOG, etc., and watch the pressure pad 
move. The read/write head is directly under the pressure pad contacting the 
bottom of your disk. Disk drives are indeed amazing. 

Warning: Never pour cream soda in your disk drive. 

Cassette Users Tip-of-the-Year (wherever you are): Buy a disk drive. 


THE LIGHT TIME! 


If you want to set the speed of your drive (and you still have it open), 
turn it upside down and you'll see a little ring with lines on it. When your 
drive is at the proper speed and spinning, under a fluorescent light, the 
lines on the ring will appear to be still. (They'll be spinning, but they 
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won't appear to be. Some stereo turntables use the same method to set 
their speeds.) Using a small screwdriver, adjust the Speed Control. 


CHECK DISK DRIVE 


The Apple //c main drive will only run for a few seconds if you try to 
boot with the door open or with no disk in the drive (it could happen 
because of a power failure). On other Apples it's a good idea to keep a 
disk installed when you're away. Otherwise, you may come home to a 
very hot disk drive. 


CHAPTER 18 


INSIGNIFICA 


DON'T EVER DO THIS 


CALL -151 
*C055 


Thank you. 
CALL ?SYNTAX ERROR 
Every other time you CALL 64871 you get а '"? SYNTAX ERROR." 


RAM, ROM, PEEK, POKE 


You can PEEK at RAM and ROM, but you can only POKE into RAM. 
Thats why you can change DOS, but not Applesoft. (If you move 
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Applesoft into RAM, you can change it, but then there are other 
problems.) 


BACKSCROLL 


If you have a flashing cursor near the bottom of the screen, you can 
scroll text up one line with a backspace or up two lines with a carriage 
return. To get the cursor to the bottom, you can type TEXT. 


CALL THIS NUMBER 


CALL-1184 will retrieve a message for you from the Autostart ROM. 


WHO CARES DEPARTMENT 


PRINT. will print a zero. PRINT . . will print two zeroes. LET N=. 
sets М equal to zero. LET N=. . hits you with a ‘‘?SYNTAX ERROR.” 


AND PEOPLE COMPLAIN ABOUT METRIC! 


Have you noticed that to get into this computer stuff, you've got to be 
constantly converting things? Decimal to hex, hex to decimal, 3.2 to 3.3 to 
ProDOS, Applesoft to Integer, machine code to BASIC, screen characters 
to ASCII code, negative memory addresses to positive, 48K to 64K to 
128K. . . . Good grief! 
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Here are two rules of pinky that we'll pass along at no charge: 4 


Sectors used in a program = approximately 1K of memory (a 24-sector 
program is about 6K). Also, 4000 decimal = approximately 1000 hex. 


WE HAVE FOUND... 


If you LIST any program line, the cursor will appear three lines 
below the listing; except if it's the /ast program line, the cursor 
will appear two lines below. If you think of a use for this tip, let 
us know. 
Extra colons are often ignored. This statement works even 
though it looks a little buggy: 

IF X 20 THEN :::: РАМТ “1 TOLD YOU?!" 
Lots of minuses are okay, too, as in: 

PRINT-----10 
Each pair of negs make a pos. 
Tracing over a REM statement will add an extra space after the 
word “КЕМ” when you list. The Apple adds a space after all 
tokens. When you trace over a REM, the Apple considers the 
traced-over space part of your remark. The same rule applies to 
tracing over DATA statements. 
You can't boot from drive #2. But if you have an Apple 
//c with two disk drives (one internal and one external), put 
a ProDOS disk in the external drive, press Control-Reset, 
and then PRZ7 <RETURN>. That'll boot from the external 
drive. 
Escape @ clears the text screen and leaves you with a cursor, 
but no prompt. 
In 80 columns, PRINT CHR$(12) clears the screen, but not in 
40 columns. (You can also clear the screen with PRINT 
"CONTROL-L'' in 80 columns.) 
You can use a GOSUB as a direct keyboard command; good for 
testing a subroutine. 


11. 


12. 


13. 


14. 


15. 


INSIGNIFICA 201 


PR36 won't boot a disk. 

NEXT:NEXT uses less memory than NEXT X,Y and might 
even be faster (check it and let us know). 

Everything in a program line after an ONERR statement is 
ignored by Applesoft. 

If you put a quote mark at the beginning of a line and key in a 
message, your characters won't be parsed. Try this: 


10 GOTO 30 
20 "HIYA JACK - THIS IS SOMETHING ELSE 
30 END 


Everything in a program line after a REM statement is ignored 
by Applesoft. 

Everything in a program line after a GOTO statement is ignored 
by Applesoft, but everything after a GOSUB is not! 

A language card has to go in slot #0 on the Apple II/II +, but 
other cards, except the 80-column card on the //e, may go 
anywhere. They have to make do with a measly 128K. (?) 
Traditionally, printers are connected to slot #1 and disk drives 
are connected to slot #6. Even the Apple //c, which has *'ports'' 
instead of real slots, thinks PR#6 will boot a disk, and PR#1 
will kick the printer into action. 


DO SOMETHING MEAN TODAY! 


While strolling by someone's Apple, reach over, POKE 33,90 and keep 
walking. No permanent damage will be done (Reset cures all), but LIST- 
ing will be, let's say, interesting. Other POKEs to try to temporarily mess 
things up are POKE 50,99, POKE 50,250, and POKE 50,127. 

Beagle Bros is not responsible for any possible repercussions. 
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OUR FAVORITE TYPOS 
RUB PRITN 
RIM LIAR 
RYB KUST 
RUIN ;OST 
LSIT LIDY 
CATAKIG CATALOAG 
WHAT NO END? 


On Applesoft programs, you don't need an END statement, but in Integer 
you do. 


ERROR BREAK 


If you try to load a nonexistent file with an immediate (not in a program) 
command, LOAD XYZZY, you get a normal “ЕШЕ NOT FOUND” 
message. If you have a program in memory that has been run, and type an 
immediate (again, not in your program) RUN XYZZY, you get a *‘FILE 
NOT FOUND, BREAK IN 123" message, where 123 is the last line 
executed. 


FUNNY INVERSE 


We just bought a new Apple and it puts out inverse type that looks 
like this 
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instead of our old Apple's style 


Nobody knows why. We all prefer the old version, probably because we're 
used to it. Can anyone out there tell us how to convert our hardware to the 
old-style inverse? 


80-COLUMNS OR 40? 


If PEEK(4925) + PEEK(49927) = 80 then an 80-column card is installed. 
To discover if the user is looking at 80-columns or 40, clear the screen 
(HOME) and print a period. If PEEK(1024) (upper-left screen character) is 
equal to 160 (a space) then 80-columns is in effect. 


PRINTER ON? 


If your printer is off апа a program does a PR, everything will 
screech silently to a halt until someone turns on the printer or does a 
control-Reset. The problem is, there is no message on the screen to tell 
you what to do. WHY doesn't more software (like AppleWorks, for 
example), use this simple trick? 


100 FLASH: PRINT "FIX PRINTER" 
110 NORMAL 

120 PRINT CHR$C42;"PR£21' : PRINT 
130 PRINT CHR$C4)2;"PR£40'': HOME 


(Program continues) 
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ANOTHER FREE CHART? 


If you've got an 80-column printer, here's a handy chart program. Just 
type it in, run it, and get out of the way— 


10 FUR I. * 1 TU © = LS + “-%;: NEXT 

15 PRINT CHR$C4) PRE 1: REM PRINTER SLOT 

Zo EDR ЧГ eT TU Sl ЕКШИИ T NEST 

30 PRINT SPCC 325 " FNVERSE";" SPCC: 875" 
FLASH". SPCC 102% "GUNTRUL", ӨРСХ 12 
); "NORMAL": PRINT L$ 

40 FOR У = 0 TO 63: FOR N = V TD V + 192 
STEP 64 

50 IF N > 159 AND М < 255 THEN X$ = CHR$ 
CN): GOTO 90 

60 IF М = 255 THEN X$ = " "= GOTO 90: REM 
MAKES CHR$ (255) PRINT AS A SPACE. 
DEPENDS ON YOUR PRINTER. 

70 KS Пай Xo ТОВ СМ € ЗВ) * Tog 
CN ».31.A8ND N €«.952.* 64 *.CN > 959 

80 Х$ = CHR$ СХ) 

90 PRINT ™ "it GOSUB 140: PRINT. т": 
“жан SPOE EM € TOOS E CN € T0394" Phere 
IF M > 167 THEM PRIMI TCN = 1289) "Ta 
SPEC CN ~ 128 € 100) + CN — 1229 "€ 10225 

190 PRINT = moe NEXT Ns PRINT + М1 
INT COV + 12 и 16% * 16 > 0 THEM 7130 

120 PRINT T- TY * TT "LP Та THEN-GERDNT 
SPCC 39$; "INVERSE"; SPCC 725" FEBSHIt. 
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SPCC 9);"NORMAL"; SPCC 13);"LOWER CASE 
": PRINT L$ 

130 NEXT V: FOR I = 1 TO 6: PRINT : NEXT 
PRINT CHRSC4);"PR#0": END 

140 PRINT "$";:М% = М / 16: GOSUB 150: NX = 
М - NZ * 16: GOSUB 150: RETURN 

150 PRINT CHR$ (48 + N% + 7 * (№ > 9 ));: 
RETURN 


This chart shows you the values for all 256 normal, inverse, flashing 
and control characters. It also serves as a handy ASCII conversion chart 
and 0-255 hex converter. The program was going to include a complete 
biorhythm chart for everyone born in this century and a full-size hi-res 
rendering of Zasu Pitts, but we're saving those features for Tip Book 
#32767. 


TOWERS OF HANOI 


This is a puzzle involving three vertical pegs. On peg #1 there is a 
stack of disks (not floppy) of decreasing sizes. The object is to transfer 
these disks, one at a time, in the same order, to peg #2. Use peg #3 as 
temporary storage. The big stickler is that you can never place a disk on 
top of one that is smaller. RUN the program that follows and your Apple 
will solve the puzzle for you. Use the RETURN key to view the process 
step by step. You may want to alter the program so that you can make the 
moves yourself. 

One of the neat tricks in this program occurs in line 1000, which 
G:OSUBs itself repeatedly until N(TS) equals zero. 


20 DIM NC20),XC20),YC20),2020): PRINT 
CHR$C21) 

30 TEXT : HOME : INVERSE : PRINT “ TOWERS 
OF HANOI ": PRINT : NORMAL : INPUT 
"NUMBER OF DISKS €1-102:'";N$:N = VAL 
CN$):N = INT CN): IF N < 1 ПЕ М > 10 
THEN 30 
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35 HOME : PRINT '"«ANY KEY» TO PAUSE, 
«SPACE» TO CONTINUE": PRINT “<RETURN> ТО 
STEP THROUGH" 
40 X = 1:Ү = 2:2 = 3: GOSUB 1050: GOSUB 
1000: END 
1000 TS = TS + 1:NCTS) = N:XCTSO = X:YCTS) 
= Ү;2(Т5) = Z: IF NCTS) THEN М = NCTS) 
- 1:X = ХС(Т5):Ү = 2С75):2 = YCTS): 
GOSUB 1000:M1 = XCTS)I:M2 = YCTS): 
GOSUB 1030:N = NCTS) - 1:X = ZC€TS):Y = 
YCTSI:2 = ХСТ5): GOSUB 1000 

1020 HTAB 1: VTAB 2: NORMAL :TS = TS - 1: 
RETURN 

1030 T = М1:М = TCT,TPCT)): GOSUB 5000:T = 
M2: GOSUB 4000: IF PEEK С - 16384) < 
127 THEN RETURN 

1040 POKE - 16368,0 

1045 A = PEEK € -16384): IF А < > 160 AND A 
< > 141 THEN 1045 
1046 IF A < > 141 THEN POKE - 16368,0 
1047 RETURN 
1050 TS = 0: INVERSE : FOR Г = 1 TO 3: FOR 
J = 4 ТО 22: НТАВ 13 * I - 12: VTAB J: 
PRINT " ": NEXT J,I: NORMAL 

1060 Т = 1: FOR Г = 10 ТО 1 STEP - 1:CCID = 
T + 2:T = T + 1: NEXT :T = 1: FOR М = 
N TO 1 STEP - 1: GOSUB 4000: NEXT 
RETURN 

4000 TPCT) = TPCT) + 1:TCT,TPCT)) = M: 
INVERSE : HTAB 13 * T - 12: VTAB 24 - 
2 * TPCT): PRINT SPCC М + 1): RETURN 

5000 NORMAL : НТАВ 13 + Т - 12: УТАВ 24 - 2 
* TPCT): PRINT SPCC 12): HTAB 13 * T - 
12: VTAB 24 - 2 * TPCT): INVERSE 
PRINT " “: TPCT) = TPCT) - 1: RETURN 
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ONE LEG AT A TIME 


Running this program may help explain the discomfort you're having 
while sitting at your keyboard. Then again, it may not... 


1 GOTO 2 POS > USR SGN COLOR= = TO OR ABS 
INT COLOR= TO SGN AT COLOR= > OR COLOR= 
FN TO SPCC/ SCRNCTO SGN THEN INT RESTORE 
PLOT 

2 FOR 1=2055 TO 2084: PRINT CHR$ CPEEKCL));: 
NEXT 


In line 2 we're peeking at the garbage in line 1. Each token (like “РО5””) 
has an equivalent letter (like ““Ү””). Strange, huh? 


ы. б 
а 10 A$="JACKZIP”: FOR 
Н=1 ТО 7: CALL-198: 
FOR S-1 TO 16 * 
( ASC(MIDS(A$.H)) 
-64) NEXT S.H 


HY 


JUST ANOTHER DICE PROGRAM 


This program demonstrates two things: 


1. Most dice, even computer dice, are normal (REM: Some dice 
players are not). 

2. You can make a nice bar graph on the text screen. (REM: Who 
needs graphics?). 


This program, in the long RUN, should prove that lucky seven comes 
up more than any other number. Line 20 rolls the dice and line 30 prints 
the graph. First one to the right side of the screen wins! 
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10 PRINT CHR$C212: DIM NC40): TEXT : HOME 
NORMAL : FOR V = 2 ТО 12: УТАВ МУ * 2 - 
3: HTAB 1 + (V « 100: PRINT V: NEXT 

20 D1 = INT € RND (1) * 6) + 1:D2 = INT С 
RND (1) +» 6) + 1:D = D1 + D2:NCD) = NCD) 
+ 1 

30 УТАВ р ж 2 - 3: НТАВ 3: INVERSE : PRINT 
SPC € NCD)): IF PEEK €36) THEN 20 

40 NORMAL : FOR У = 2 ТО 12: VTAB У * 2 - 
3: HTAB 3: PRINT “:"3NCV); SPCC NCV) < 
10): NEXT : PRINT СНК$ (79 


CARD SHUFFLER 


This program shuffles cards. It doesn't play cards, it just shuffles them. 


10 PRINT CHR$C210: DIM CARDS$(S2),CHECKC(S2) 

20 SUIT$ = "CDHS" 

30 N$ = "A23456789TJQK" 

40 FOR S = 0 TO 3: FOR C = 1 TO 13:CARD$CC 
+ 5 ж» 13) = МІР? (М%,С,12 + МІР? CSUITS 
,S + 1,1): NEXT : NEXT 

45 ТЕХТ : HOME : NORMAL 

50 FOR X = 1 TO 52 

55 XX = X - 1: VTAB 1 + XX - INT (ХХ / 13) 
+ 13: НТАВ 1 + 10 * INT (ХХ / 13) 

60 PRINT SPCC X < 102;X;'':"*; 

70 N= INT С RND (1) * 52) + 1 

80 IF CHECKCN) THEN 70 

90 CHECKCN) = 1 

100 INVERSE : PRINT CARDSCN); 

105 NORMAL : PRINT SPCC 5) 

110 NEXT X 


INSIGNIFICA 209 


HERE'S A GOOD ONE FOR YOU— 
ALL THINGS CONSIDERED EQUAL, 
WHICH WILL WEAR OUT FIRST, AN APPLE 
THAT IS TURNED ON BUT DOING 
NOTHING. OR AN APPLE THAT IS COUNT- 
ING IN AN INFINITE LOOP? 


^ == ZT ж И 


HUMONGOUS ТІР BOOK 


Buy The Apple Almanac by Eric Goez and William B. Sanders. We 
don't sell it, but the stores do (and they're not paying for this plug). Ask 
for it at your computer store or bookstore. It contains 240 pages of all 
kinds of excellent Apple information, which you are always having to look 
up, for $19.95. Don't think about it, buy it! You'll be glad you did. 


“OH, COME ON!” DEPARTMENT 


Our favorite addresses— 


Personal Computing Magazine Micro Magazine 
4 Disk Drive PO Box 6502 
Philadelphia, PA Chelmsford, MA 
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Your disks? Let's see... They were 
getting dusty, so I sent them out to the 
dry cleaners this morning. And I 
couldn't get Channel 8 on your cute 
little monitor, so I called the 
repairman. And... Oh! Remember all 

those messy WIRES that were sticking 
out of the back of your Apple?... 


VOCABULARY LESSON #255 


1 GOTO 2 AND POS COLOR=OR 
TO AND AT COLOR--INT 
COLOR-INT USR AT RESTORE 
PLOT-COLOR- ^ -FRE AT 
COLOR-OR AT TO SGN COLOR= 
ABS+AT COLOR=SQR>>RESTORE 
PLOT PLOT SCRN(+>COLOR= 
TO SGN AT COLOR-POS2USR 
NEW PLOT 

HOME: FOR L=2055 TO 2105: 

PRINT CHR$ (PEEK (L?) 5 = МЕХТ 


N 
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eThe Beagle Bros Staff e 


Tex Window C.Ray Tube 


Minnie Assembler J. Modulo DeBug 
€—— — DNE. Mm ety 
монон» шуен к бори orsi the expressed written permission 
of the Commissioner of Baseball. 


Max Files 


No longer with us: Elsie Dee and Daisy Wheel 
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Photo credits: G. Bell (page 2), R.F. Modulator (page 3), Jose Canyusee 
(page 5), Roger Overout (page 7), Bill Overdoo (pages 8,13,14), Mandy 
Lifeboats (pages 9,22,58), Tom P. Ping (page 10), Hi-Res Harry (page 17) 
courtesy Fly-by-Night Circuses Intl., Apple-0 Computer (page 15) cour- 
tesy Beagle Bros Hardware Research Department. Figure 8 illustration 
(page 26) courtesy National Museum of Overpriced Art. Free Cash offer 
(page 425) expires December 31, 1999. 


MORE-ON-THE-SCREEN TIP 


Some word processors display text on the screen in the same column- 
width that it will be printed; the default is usually around 60 characters. 
This is fine, but the right 20 screen-columns are wasted, and therefore the 
total amount of text visible is limited. You'll get more on the screen if you 
set the column-width to 80 until you are ready to print. With AppleWorks, 
set the right margin to zero and the platen width to 9. 

We decided it would be nice to have a triple-height full-page monitor 
for Apple word processing. You build it and Beagle Bros will handle the 
marketing. Please phone us when you've built the prototype. 


BOOT DATE 


If you have a Thunderclock connected to your Apple //e, you can play 
with this startup program. Line 0 has a REM that contains the last time and 
date booted. Every time the program is RUN, the time and date are printed 
on the screen, updated in the listing, and re-SAVEd on disk. 


1000 PRINT "LAST BOOT: ";:X$ = "'"; FOR I = 
2054 ТО 2054 + 21:X$ = X$ + CHRS C 
PEEK CI)): NEXT : PRINT X$: REM READS 
LINE 0 AND PRINTS IT 

1010 D$ = CHR$ (4): PRINT D$'PR£7': PRINT 
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D$"IN47'": INPUT "X";T$: PRINT D$'"IN£O 
": PRINT D$"PR£0": REM READS CLOCK 
INTO D$ 

1020 PRINT "THIS BOOT: ";T$: FOR I =1 TO 
22: POKE 2053 + I, ASC € MID$ CT$,I2): 
NEXT : REM POKES T$ INTO LINE 0, 
CHANGING THE DATE THERE 

1030 PRINT D$"SAVE STARTUP": REM SAVE FOR 
NEXT TIME YOU BOOT 


GRID PAPER 


The next time you need a piece of graph paper, RUN the following 
program. Use your printer's special-effect features to adjust the darkness 
of lines, compactness of grid, etc. Different brands of printers will produce 
different results; check your printer manual (good luck). 

You can print as many grid copies as you like, or—to combat noise 
pollution and save on ribbons—take a master printout to your local instant 
printer or photocopy machine. 


10 TEXT : HOME 

20 PRINT CHR$C4) "PR#1" 

40 REM SAMPLE GRID PROGRAM 

100 V$ = CHR$ €124):L$ = CHR$ (95):5$ = 


CHR$ (32) 

200 FOR H = 1 ТО 24: PRINT S$5;L$;L$5;: NEXT 
: PRINT S$ 

400 FOR V = 1 TO 40: FOR H = 1 TO 24: PRINT 
V$;L$;L$; 


500 NEXT : PRINT V$: NEXT 
600 PRINT CHR$C4) "РК#0" 


POKE FIX 


If typing RUN gives you a weird message like ''?Syntax Error In 65064” 
or if NEW causes a *'?Syntax Error," a quick POKE 2048,0 should fix 
things. If you’re into causing problems instead of fixing them, type POKE 
2048 (the byte prior to start-of-program) with a number other than zero. 
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CONTROL YOUR PRINTER 


The manual that came with your printer probably tells you which control 
or Escape command creates which special effect (bold characters, con- 
densed, etc.), but I don't trust my printer manual any further than I can 
throw it (and I've thrown it many times). Why not test your printer? Who 
knows, maybe it prints some character set or special effect that they never 
even told you about. 


10 D$ = CHR$ (4) 

20 HOME : PRINT "CODE:'";: GET A$ 

30 IF А$ = CHR$ (27) THEN PRINT "ESC-'';: 
GET B$ 

40 PRINT D$"PRe1" 

SO PRINT A$;B$;" <-WHAT DOES THIS DO?" 

60 PRINT D$"PR#0": RUN 


To clear previously installed printer commands, you should click your 
printer’s power switch off and back on again each time you see the word 
“СОПБЕ:”. Then enter a control character (like Control-A), or Escape 
followed by another character (for example, Escape A). If **What does this 
do?’’ changes appearance, vou've discovered something. By the way, 
Escape is the same as Control-[; that’s CHR$(27). 


EXPONENT 


Several Apple II hardware and software configurations now accept lower- 
case direct and indirect commands. Try typing ‘‘print 123” in lowercase. 
If you get a ''?Syntax Error," don’t bother reading the next paragraph. 

Oh boy, another quirk to write about! Type the following command. 
It should produce a ‘*?Syntax Error” but it doesn't: 


print 2-2 
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ASCII-ly speaking, the tilde (^) is a lowercase caret (^). Remember, 
you read it here! 


WORTHLESS TRIVIA (DO NOT READ!) 


If you're using all positive values, you can substitute a minus sign for 
“>”, Ferinstance 


IF X» Y THEN PRINT “HICCUP” 
is the same as 


IF X-Y THEN PRINT “НІССОР” 


BEAGLE BROS LOCATIONS 


WHO ARE THE BEAGLE BROS? 


Applers from all over the world have written and asked who the Beagle 
Bros really are and how we got our start in the software business. Well, it 
was quite by accident, really. Just before the war, we bought a .... 


CHAPTER 19 


TWO LINERS 


IN ONLY TWO LINES 


For those of you who are unfamiliar with the Beagle Bros Perpetual (or 
until it’s cancelled, whichever comes first) Two-Liner Contest, you're 
going to be amazed at what your trusty Apple can do in two lines. This 
chapter presents the unabridged collection of two liners collected up until 
about a week ago. The first line doesn't count, since it is used to identify 
the program's author. If you have a two-line program you think is some- 
thing else, send it to: 


Beagle Bros Micro Software, Inc. 
2-Liner Department 

3990 Old Town Avenue 

San Diego, CA 92110 


The nice thing about two liners is they're easy to key in. There 
is absolutely no joy in keying in a thousand-line program and getting 
a hidden ''?2SYNTAX ERROR.” With two liners the error is in line 1 or 
line 2. 
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XPLOT 


жығы” 


0 
1 


REM DIVAN ROUSE--COUNTRYSIDE,IL 

HGRe :P = 3.14:0 = 6.28: FOR T = 1 TO 3:L 
= P/ 40: HCOLOR= INT € RND (1) * G) + 
1:R = RND (1) * 60:5 = 90 - R:B = RND (19 
* Q - P: FOR A = 0 ТО Q STEP L:X = INT С 
COS (А) * S * 1.55) + 140:Y = INT С SIN 
СА) * S) + 95:H = INT € CDS CA + В) * RD: 
HPLOT X + H,Y + НТО X - H,Y - Н: HPLDT X 
- H,Y + H TO X + H,Y - H: NEXT : NEXT 

RUN 


YAWNER 


их 


0 
1 
2 


REM THOMAS GILLEY--ELLSWORTH, МЕ 

HGR?2 

RESTORE : FOR I = 1 TO 15: READ X: POKE 
24575 + I,X: NEXT : POKE 232,0: POKE 233, 
96: ROT- 00: FOR S = 1 TO 255: SCALE= S: 
XDRAW 1 AT 139,95: NEXT : GOTO 2: DATA 1, 
0,4,0,0,40,53,54,62,63,39,36,44,5,0 


ZOOM GRAPHICS 


далала дала 


0 
1 


2 


REM CHRIS KOERITZ--FAYETTEVILLE, NY 13066 
HGR :HC = 3:Y = 191: POKE - 16302,0:X = 
279 

HCOLOR= HC: HPLOT X,Y TO X,191 - Y TO 279 
= X191 - Y TO 279 - X,Y TO X,Y:Y = Y - 

5 + 190 * (Y < 2):X =X - 5 + 275 ж CX < 
5):HC = HC - 3 * CHC = З AND RND (1) > 
.94) + 3 * CHC = 0 AND RND (1) > . 9): 
GOTO 2 


VIDEO VISION 


ххх жек Ж 


0 
1 


REM KEVIN OSTROM--POWAY,CA 

В = 191:C = 278:P = C / B:S = RND (1) + 9 
+ 3: HGR2 : FOR I = 1 TO 0 STEP -1: 
HCOLOR = I + 3: FOR A = 0 TO B STEP S: 
HPLOT 0,A TO A * P,B TO C,B- A TOC -AÀ 
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* P,O ТО 0,80: NEXT : NEXT :X = RND (C1) * 
C:Y = RND (1) * B: FOR I = 1 TO 0 STEP - 
1: HCOLOR= І * 3: FOR A = 0 TO B STEP S: 
HPLOT 0,A TO X,Y TO C,B - A: HPLOT A + P, 
B TO X,Y ТО С - A * P,0 


2 NEXT: NEXT : FOR I = 1 TO 0 STEP - 1: 
HCOLOR= І * 3: FOR A = 0 TO B STEP S: 
HPLOT 0,0 TO C,A: HPLOT 0,B TO C,B - A: 
HPLOT C,0 TO 0,A: HPLOT C,B ТО 0,B - A: 
NEXT : NEXT : FOR I = 1 TO 0 STEP - 1: 
HCOLOR= І * 3: FOR A = 0 TO B STEP S: 
HPLOT 0,A TO X,Y TO C,A: HPLOT 0,B - A TO 
X,B- Y ТО C,B - A: NEXT : NEXT : GOTO 1 


WAR! 


*3*3** 


0 REM JOHN WOO--BRONX, NY 

1 GR : HOME : COLOR= 8: HLIN 0,39 AT 38: 
COLOR= 11: HLIN 14, 21 AT 37: HLIN 14,21 
AT 33: VLIN 34,36 AT 13: VLIN 34,36 AT 2 
2: PLOT 20,35: PLOT 16,35: HLIN 17,20 AT 
32: HLIN 17,20 AT 31: HLIN 19,20 AT 30: 
HLIN 11,20 AT 29: PLOT 19,28: VLIN 28,30 
AT 11: PLOT 21,28: COLOR= 12: FOR X = 1 
TO 8345: NEXT 

2 FOR X = 10 ТО 0 STEP - 1: PLOT X,29: FOR 
Т = 1 TO 20: NEXT T: COLOR» 0: PLOT X,29: 
COLOR» 12: NEXT X: FOR X = 39 TO 21 STEP 
- 1: PLOT X,29: FOR Т = 1 TO 20: NEXT T: 
COLOR» 0 : PLOT X,29: COLOR= 12: NEXT X: 
TEXT : HOME : VTAB 19: HTAB 15: PRINT 
"BOOM !" 


SARGON LXXXIV 


*3* 3€ 3€ € EE COE € 


0 REM AJIT JOSHI--CANTON ,MI 

1 FOR A = 1 ТО 18: READ X: POKE 767 + A,X: 
NEXT : HGR : POKE 28,63: CALL 62454: 
HGR2: POKE 28,64: CALL 62454: CALL 768: 
TEXT : HOME : POKE -16368,0 

2 DATA 173,84,192,173,0,192,201 ,127,16,7, 
234,173,85,192,76,0,3,96 
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TRIPLE HEB 


ини 


0 
1 


КЕМ BILL POMPEITI--WINDSOR,NY 

HGRe : HCOLOR= 3:LI = 63:RI = 0: FOR V = 
1 ТО 3:RT = RI:LF = LI:TP = 0:ВТ = 279:YT 
= RI:YB = LI: FOR LP = 1 TO 16 

HPLOT ТР,ҮТ TO 279,RT TO BT,YB TO 0,LF TO 
TP,YT: LET TP = TP + 17.4:BT = BT - 
17.4:RT = RT + 4:LF = LF - 4: NEXT LP: LI 
= LI + 64:RI = RI + 64: NEXT 


UL APPROVED 


жз жы 


0 
1 


REM ANDREW CALDWELL--LONG BEACH,CA 

А = INT € RND CE) * F):B = INT С RND CE) 
ж G):C = INT € RND CE) + F):D = INT С RND 
CE) * С): IF Е = 0 THEN HGR2 :Е = 1:F = 
279:G = 191:H = 3 

A + A + SGN (С - А):В = B + SGN CD - B):H 
= ABS CH - 3): HCOLOR= H: HPLOT C,D TO 
A,B: HPLOT F - C,D TO ГЕ - A,B: HPLOT C,G 
- р ТО A,G - B: HPLOT Е - C,G - D TOF - 
A,G - B: ON ABS (СС - A) / 2 + ED GOTO 1: 
ON ABS (D - B + ED GOTO 1: GOTO 2 


PULSE METER 


ххх 


0 
1 


REM JOHN ROMERO--ROCKLIN,CA 
HOME : VTAB 22: PRINT "PLACE FINGER ON 
SPACE BAR TO READ PULSE.": VTAB 20:5 = 
49200: HGR : HCOLOR= 3: FOR Y = 0 TO 160 
STEP 10:Y = Y - CY = 1600: HPLOT 0,Y TO 
279,Y: NEXT : FOR X = 0 TO 280 STEP 10:Х 
= X - (X = 280): HPLOT X,0 TO X,190: NEXT 
VTAB 1 
HCOLOR= 3: HPLOT 0,100: FOR X = 0 TO 276 
STEP 3: GET A$: PRINT CHR$ (7 - CAS = " 
2);: HPLOT TO X, INT € RND C1) * 80 + 
35) TO X + 3, INT € RND (1) * 80 + 35):P 
= PEEK (5): NEXT : HOME : VTAB 22: PRINT 
“THANK YOU. THAT WILL BE 25 CENTS.": END 
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QUEST 


ж... 


0 REM SCOTT BROS--FT WORTH,TX 

1 DATA 1,0,4,0,18,63,39,36,44,45,45,53,54, 
62,63,0: FOR I = 7676 TO 7691: READ A: 
POKE I, A: NEXT : HGR : POKE 232,252: 
POKE 233,29: ROT= 0 

2 FOR C = 1 TO 7: HCOLOR= C: FOR R = 1 TO 
140: SCALE= R: DRAW 1 AT 140,96: NEXT 
FOR S = 140 TO 1 STEP - 1: SCALE= S : 
XDRAW 1 AT 140,96: NEXT : FOR I = 1 TO 
1000: NEXT : NEXT : GOTO 2 


ROUND ROBIN 


+++ жн к HHH HE 


0 КЕМ JIM ROTH--SAN ANTONIO,TX 

1 HGR2 : HCOLOR= 7: HPLOT 0,0 TO 279,0 TO 
279,191 TO 0,191 TO 0,0 

2 X1 = INT €100 * RND €1) + 60) :Y1 = INT 
(80 + RND (1) + 20):X2 =130 * SIN CA) + 
13 8:Ү2 = 90 * COS СА) + 95: HPLOT Х1,Ү1 
TO Х2,Ү2:А = A + .1:C = INT (7 + RND (1) 
+ 1): GOTO 2 


MERCATOR 


+++ +++ + + 


0 КЕМ IMAD DAGHER--ANAHEIM,CA 


1 HGR? : HCOLOR= 7:Н = 79.5:G = 159 

2 FOR A = 0 TO 12.6 STEP .2:X = 22 * A:Y = 
G- Н * C SIN СА? + 1): HPLOT X,Y: NEXT 
A:G = 6 - 7:H = H - 7: IF H > - 79.7 
THEN 2 

NUMEROSITY 


+++ + ++ 


0 REM SCOTT BROS--FT WORTH, TX 

1 DATA 1,0,4,0,18,63,32,100,45,21,54,30,7, 
0: FOR I = 7676 TO 7689: READ A: POKE I, 
A: NEXT : HGR2: POKE 232,252: РОКЕ 233, 
29: ROT= 0 

2 FOR С = 1 ТО 7: HCOLOR= C: FOR R = 1 TO 
140: SCALE= R: DRAW 1 AT 140,96: NEXT 
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FOR S = 140 ТО 1 STEP - 1: SCALE- S 
XDRAW 1 AT 140,96: NEXT : GOTO 2 


OP IMAGES 


+++ + + 


0 REM MORTEN OLSEN--DENMARK 

1 TEXT : HOME : PRINT “CTRY 30, 60, 90, 120 
AND 150 AS INPUT .)": PRINT : : INPUT 
“DIFFERENCE IN DEGREES:";D:D = р / 5 
7.29578: NORMAL : HGR2 : HCOLOR= 3 
HPLOT 140,96: ONERR GOTO 1 

e FOR R = 0 TO 200 STEP D:X = 14 0 + R * 
COS CRI:Y = 96 + 0. 7 + СВ * SIN CRI): 
HPLOT TO X,Y: NEXT 

JUNKTURE 


+++ + + 


0 
1 


го 
70 3 T Q) 70 -» 4 70 70 


0 
1 


e 


REM DMP SOFTWARE--ST.LOUIS,MO 

НОЕ2 :T = 0:B = 160:L = 0:В = 256: FOR X 

= 1 ТО 11: FOR C = 1 TO 6 STEP 1: HCOLOR= 

C: HPLOT R,T TO L,T: HCOLOR= C: HPLOT R,B 

TO L,B:T = Т + 2:В = В - 2:10 = | + 2:68 = 

2: NEXT C: HPLOT R,T TO L,T: HPLOT 

О L,B: NEXT X 

B = 165:L = 0:R = 256: FOR X = 1 TO 

OLOR= 3: HPLOT Ree TO L,B TO L,T TO 
= L + 

R 


nwt 


T 
0 
H 
T 


” Со 


R,B:T = Т + 3:: В = B - 3:L 

- 3: NEXT X: FOR J = 1 ТП 39: 

4: HPLOT R,B TO L,B TO L,T ТО R,T 
= T - 3:B= B + 3: L=L-3R= 

EXT J: GOTO 1 


REM YUICHI HANDA--PASADENA,CA 

HGR2: HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 
279,191 TO 0,191 TO 0,0 

В = INT € RND (1) * 255): POKE 228,R: FOR 
Т = 1 ТО 278 STEP 4: HPLOT T,0 TO 0,191: 
HPLOT 278 - T,191 TO 278,0: NEXT : S = 
PEEK С - 16336):S = PEEK С - 16336): GOTO 
2 
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LISSAJOUS 


+++ е HEE € 


0 
1 


2 


I- 


REM JIM ROTH--SAN ANTONIO,TX 

HGR2 : HCOLOR= 7: HPLOT 0,0 TO 279,0 TO 
279,191 TO 0,191 TO 0,0: = 0:C = 0 

X1 = 134:Y1 = 92:X2 = 130 * SIN CA * 2) + 
138:Ү2 = 90 * COS (3 * A) + 95: HPLOT X1, 
Y1 TO X2,Y2:A = A + .1: GOTO 2 


CHART 


+++ + 


0 
1 


REM YUICHI HANDA--PASADENA,CA 

HGR2 : FOR A = 1 TO 140: POKE 228,4: 
HPLOT 4,0 TO 0,191 - A: HPLOT 0,0 + A TO 
A,191:B = 140 - A: HPLOT B,0 TO 140,19 1 
- A: HPLOT 140,0 + A TO B, 191:2 = A + 
139: HPLOT 2,0 TO 139,191 - A: HPLOT 
139,0 + A TO 2,191:Ү = 279 - A: HPLOT Y,0 
ТО 279,191 - A: HPLOT 279,0 + А TO Y, 
191:5 = PEEK С - 16336): NEXT 

HCOLOR= 3: HPLOT 67,94 TO 69,94 TO 69,96 
TO 67,96 TO 67,94 : HPLOT 207,94 TO 209, 
94 TO 209,96 TO 207,96 TO 207,94: FOR T = 
1 TO 150: NEXT : HCOLOR= 0: HPLOT 67,94 
TO 69,94 TO 69,96 TO 67,96 TO 67,94: 
HPLOT 207,94 TO 209,94 TO 209,96 TO 207, 
96 TO 207,94: FOR T = 1 TO 150: NEXT :S = 
PEEK € - 16336): RUN 2 


GROWIES 


жала + 


0 
1 


REM VERA & GEOFF WONG--VICTORIA, 
AUSTRALIA 
HGR2 : HCOLOR= 1: FOR I = 0 TO 275 STEP 
3: HPLOT 1,191 TO I + 1,191 - € RND (1) * 
15): HPLOT I + 1,191 - С RND (0) ж 15) TO 
I + 2,191: NEXT : FOR І = 1 TO 500: NEXT 
GOTO 2 
Р = 3.14: FOR L = 1 TO 15:А = RND (1) * 
219 + 30:B = RND (1) * 131 + 30: HCOLOR= 
3: FOR Y = 191 TO B STEP - 1: HPLOT A, Y: 
NEXT :S = RND (1) * 20 + 10: FOR T = .5 « 
Р ТО 2.5 + P STEP 2 * Р / S:X = A + SIN 
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CT) * S:Y = B - COS СТ) + S : HPLOT A,B 
TO X,Y: NEXT T,L 


HPLOT MADNESS 


++ ннн н н e к + 


0 
1 


REM DAN PROTHERO--OSTERVILLE , МА 

Т = 768: POKE 232,0: POKE 233,3 : FOR L = 
T TO T + 24: READ P: POKE L,P: NEXT : 
DATA 5,0,12,0,15,0,18,0,21,0,24,0,53,39, 
0,55,37,0,39,53,0,37,55,0,45,0: HGR : 
POKE - 16302,0: ROT= 0 

FOR J = 0 TO 7: HCOLOR= J: HPLOT 0,0: 
CALL - 3082: FOR R = 1 TO 2: FOR S = 1 TO 
191: SCALE= S: XDRAW 1 AT S,S: XDRAW 2 AT 
279 - S,S: XDRAW 3 AT 279 - S,191 - 5: 
XDRAW 4 AT S,191 - S: NEXT : SCALE= 140: 
FOR Y = 0 TO 191: XDRAW 5 AT 0,Y: NEXT 
NEXT : NEXT: GOTO 2 


DAYTER 


жала 


0 
1 


REM PHIL BARTON--SAULT STE.MARIE 

TEXT : HOME : PRINT "DAYTER: INDICATES 
DAY FOR VALID DATE" : INVERSE : VTAB 3: 
PRINT "SAT SUN MON TUE WED THU 
FRI": NORMAL : VTAB 6 : INPUT "MMDDYY:'';A 
$:A% = VAL С RIGHT$ CA$,2)):B%A = A% / 4 
:С% = VAL С LEFT$ (A$,2)):E = (8% * 4 = 
A% AND C% < 3 AND AZ < > 00:42 = A% + B% 
рх + (0% = 1) + 4» (Ся = 2 OR C% = 3 OR 
C% = 11) +2 + (C% = 5) + 5» (ССЖ = 6) + 
3 * ССА = 8) + 6 * СС = 9 OR C% = 12) + 
CC% = 10) + - Е:А = AZ + D% + VAL С MIDS 
С(А%,3,222:В% = A% / 7:C% = BR * 7: B% = 
A% - СХ: УТАВ 4: CALL - 868: HTAB 6 ж B% 
+ 1: PRINT CHR$ €7);"***": VTAB 10: PRINT 
"PRESS RETURN '";: CALL - 676: GOTO 1 


EYE SCAN 


+++ ++ + 


0 
1 


REM STEVEN BLOCK--PASADENA,CA 
POKE 233,3: POKE 232,2: FOR J = 1 TU 14: 


224 


THE BIG TIP BOOK FOR THE APPLE II SERIES 


READ D: POKE 769 + J,D: NEXT : HGR2 
SCALE= 40 : HCOLOR= 3 

FOR R = 1 TO 64: ROT= R: XDRAW 1 AT 140, 
90: NEXT :I = I + 10* RND CIO ж CI < 
254): POKE 776,1: RESTORE : GOTO 2: DATA 
1,0,4,0,2,4,2,4,2,4,2,4,0,6 


FLOP CAT 


чих 


0 
1 


2 
3 


REM REED RIGHTHEAD--SAN DIEGO,CA 

FOR A = 768 TO 785: READ B: POKE A,B: 
NEXT : POKE 54,0: POKE 55,3: CALL 1002: 
DATA 201,141,240,9,32,240,253,32,16,252, 
76,16,252,169,39,76,100,252 

PRINT CHR$ €4) "CATALOG" 

REM CONTROL-RESET TO CANCEL 


APPLE 3D 


LESEN EEG 


0 
1 


REM MIKE NUZZU--MWESTFIELD,NJ 

HGR2 : HCOLOR= 3:J = 0:CX = 140:CY = 
80:081 = 260:A2 = 14:PI 3.14159:X1 = 
72:Y1 = 13: X2 = 46:Ү2 69: FOR I = 0 TO 
РІ +» 2 STEP PI / А1:Х5 SIN CI) * X1:Y5 
= CDS CI) + Y1: GOSUB 2:X7 = INT CCXS + 
XG) / 2):Ү7 = INT CCYS + YG) / 2): HPLOT 
X7 + CX,Y7 + CY: NEXT : END 

J = J + PI / A2:X6 = SIN CJ) * X2:Y6 = 
COS CJ) * Y2: RETURN 


BOX BOUT 


н нез + 


0 
1 


REM SCOTT BROS--FT WORTH,TX 

DATA 1,0,4,0,18,63,39,36,44,45,45,53,54, 
62,63,0: FOR I = 7676 TO 7691: READ A: 
POKE I,A: NEXT : HGR2 : POKE 232,252: 
POKE 233,29: ROT= 0 

РОВ С = 1 TO 7: HCOLOR- C:S = 21: FOR Р = 
1 ТО 20:5 = $ - 1: SCALE= R: DRAW 1 АТ 
70,48 : DRAW 1 AT 210,144: SCALE= S: 
XDRAW 1 AT 210,48: XDRAW 1 AT 70,144: 
NEXT Т = 21: FOR U = 1 TO 20:T = T - 1; 
SCALE= T: XDRAW 1 AT 70,48: XDRAW 1 AT 
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210,144: SCALE= U: DRAW 1 AT 210,48: DRAW 
1 AT 70,144: NEXT : NEXT : GUTO 2 


CHUGGACHUGGA 


* 3x 3*3* н 4€ 3€ 38 3€ € € 


0 
1 


REM AJIT JOSHI--CANTON,MI 

HOME : POKE 50,233: FOR X = 150 TO 255: 
SPEED= X: PRINT PEEK (49385) + PEEK 
€49386);: PRINT "CHUGGA";: PRINT PEEK 
€49387);: NEXT : END 


ORGAN 


жж 


0 
1 


2 


REM MARK BACKMAN--AUSTIN, TX 

TEXT : HOME : PRINT ТАВ € 13); “KEYBOARD 
ORGAN": FOR X = 24576 TO 24591: READ Y: 
POKE X,Y: NEXT X: DATA 172,0,192,173,48, 
192,234,234,234,234,136,208,249,76,0,96 
CALL 24576 


NAMER 


хх 


1 


NORMAL : УТАВ 1: НТАВ 1: INPUT "WHAT’S 
YOUR NAME? ";N$: SPEED= 234:SP$ = "''; 
ONERR GOTO 1 

SP$ = SP$ + ".": INVERSE : PRINT " '';N$;" 
";: NORMAL : PRINT SP$;: GOTO 2 


UFO #1--INTEGER BASIC 


++ + + Ен УЕ к ЕЕ + ЕЕ ЕЕЕ + 


0 
1 


2 


REM DAVE MADDEN--LISLE, IL 

CALL -936: TAB 10: PRINT "U.F.0. TAKEOFF 
EFFECT": TAB 13: PRINT " BY DAVE MADDEN" 
PUKE 766,1: POKE 765,16: FÜR A=1 TO 255: 
FOR B=1 TO 75: FOR I=B TO 1 STEP -A: POKE 
767, 1: CALL -10473: NEXT І,В,А: GOTO 2 
REM REQUIRES PROGRAMMER’S AID CHIP 
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UFO #1--INTEGER BASIC 


алада дал далада 


0 REM DAVE MADDEN--LISLE, IL 

1 CALL -936: TAB 9: PRINT "HOVERING U.F.O. 
EFFECT": TAB 13: PRINT "BY DAVE MADDEN" 

e POKE 766,1: POKE 765,16: FOR 1[=30 TO 1 
STEP -1: POKE 767,I: CALL -10473: NEXT I: 
GOTO 2 


LO-RES GAME 


+++ лд + EEE 


0 REM DAVID LINKER--SEATTLE ,WA 

1 GR : HOME : COLOR» 15:T = 39: FOR I = 
TO 1: VLIN 0, T AT I * T: HLIN O,T AT 
T: NEXT : X = S:¥ = 5:5 = 0:Т = 38: 
COLOR= 1: PLOT X,Y: FOR С = 1 TO 14 :A = 
RND (1) +» T + 1:B = RND (1) * T + 1: 
COLOR= C + 1: PLOT A,B: COLOR= C: VTAB 
23: PRINT "YOUR SCORES";S: FOR I = 1 TO 
50: IF CN = 15) OR CN < = С AND М > 09) 
THEN END 

2 М = PEEK C - 16368):N = PEEK < - 16384):G 
= (N = 21) - СН = 8):р = CN = 90) - CN = 
65): ON ABS (G + р) + 1 GOTO 2:X = X + 
6:Y = Y + D:N = SCRN €X,Y):S = S + 200 + 
(М C + 13:2 = PEEK С - 16336): PLOT 
X,Y: NEXT :S = 5 + 100: COLOR= 0: PLOT 
A,B: NEXT : VTAB 23: HTAB 12: PRINT S;" 
YOU HIN!": FOR I = 1 ТО 9: CALL -1 052: 
NEXT 


* 


0 
I 


PATTERNS 


далала; 


0 REM DAVID GERSHON--SEAL BEACH,CA 

1 HGR : FOR С = 1 TO 7:RT = 15: HCOLOR= C: 
FOR В = 5 TO 150 STEP 10: HPLOT 0,Р TO 
КТ,155 TO 270,155 - R ТО 270 - RT,0 TO 
O,R:RT = RT + 15: NEXT R: HOME : VTAB 9: 
PRINT " FUN." 
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2 FOR К = 10 TO 60 STEP 10: HPLOT 140,10 + 
R ТО 140 + R,75 TU 140,150 = В TO 140 - 
R,75 ТО 140,10 + R: NEXT В: NEXT С: HGR 
TEXT 


MYSTERY PIC 


+++» н н EEG X 


0 REM MARK BACHMAN--AUSTIN, TX 

1 HGR : FOR Z = 0 TO 10 STEP .2 : FOR X = 0 
TO 10 STEP .2: HCOLOR= 3:Y = - 10 * COS 
(3 * SQR CCX - 5) ^ 2 + (2- 59) ^ 29) / 2 
+ 50: HPLOT X * 20 + 20 + 2» 3,Y + 2 + 
10 

2 HCOLOR= 0: HPLOT X * 20 + 20 + Z + 3,Y + 
2 + 10 + 1 ТО X * 20 + 20 + 2 * 3,180: 
NEXT : NEXT : END 


SPHERE 


жж 


0 REM JERRY KRAMER--PHILADELPHIA, РА 

1 HOME : HGR2: HCOLOR= 3: FOR A = 20 TO 170 
STEP 7:B = 1.15 * € SGR €6400 - CA - 95) 
^ 2)): FOR С = 0 TO 6.4 STEP . 2:X = B * 
COS (C) + 139:Ү = A - B * SIN СС) / 5: IF 
C = 0 THEN HPLOT X,Y: NEXT 

2 HPLOT TO X,Y: NEXT : NEXT 


SCROLLER 


жы 


0 REM CHRISTOPHER VOLPE--TRUMBULL, CT 

1 Н$ = "303: AD 52 С0 AD 51 CO AD 22 EA EA 
EA EA 20 АВ FC AD 50 CO А9 47 ЗЕ 00 00 ЗЕ 
00 00 ЗЕ 00 00 ЗЕ 00 00 ЗЕ 00 00 ЗЕ 00 00 
ЗЕ 00 00 ЗЕ 00 00 ЗЕ 00 00 ЗЕ 00 00 20 АЗ 
FC 4C 06 03 N 3036" 

2 FOR I = 1 ТО 40: PRINT "THIS IS TEXT PAGE 
DNE. ";: NEXT : FOR С = 1 TO LEN CH$): 
POKE 511 + C, ASC € MID$ CH$,C,1)) + 128: 
NEXT : CALL -144 

10 REM 
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SALARY 


ии 


0 
1 


REM CHRIS JOHNSON--LITTLE ROCK, AR 

TEXT : HOME : PRINT “YOU ARE OFFERED ONE 
CENT ON THE FIRST DAY OF YOUR NEW JOB, TO 
BE DOUBLED EVERYDAY THEREAFTER FOR A 
MONTH.": PRINT : PRINT "J QUESTION: 
SHOULD YOU ACCEPT?";: FLASH : HTAB 2: 
PRINT " ": NORMAL 

PRINT : PRINT "DAY","PAY": PRINT "---", 
ое “; POKE 34,8:S = 127 / 31:A = 
.01: FOR В = 1 ТО 31: SPEED 2 * S «В: 
PRINT B,"$";A:A = А * 2: NEXT : PRINT 
PRINT " ANSWER: HOLD OUT FOR MORE.";: 
VTAB 23 


MEM-SHAPES 


HREREREKRERER 


0 
1 


REM DAVID GERSHON--SEAL BEACH,CA 

POKE 232,255: POKE 233,255:X = INT € RND 
€1) * 120) + 1:R = INT € RND (1) * 40): 
HGR2:ROT= R: DRAW X AT 90,90:H = INT C 
RND (1) + 8): IF Н = 0 OR Н = 4 THEN Н = 
1 

HCOLOR= H: XDRAW X AT 90,90: GOTO 1: REM 
TRY THIS EVERY NOW AND THEN JUST TO SEE 
WHAT’S GOING ON. 


LIGHTNING--INTEGER BASIC 


++ ++ + + + + ЕЕЕ ығы 


0 
1 


REM CHRIS VOLPE--TRUMBULL, CT 

CALL -936: CALL -12288:X0=YO=COLR:P= 
-11506:D=32767: FOR Is0 TO D:COLR= 
127:Х=А:Ү=В:А=РМр (279):В= RND (191) 
:Х0-Х:Ү0-Ү: CALL P 

XO=A:YO=B: CALL P+6:COLR=0: XO=X:YO= 
Y: CALL P:X02A:YO=B: CALL P+6: POKE 
-16336, PEEK С- 16336): NEXT I 


TWO LINERS 


ETC. 


жж 


0 REM DAVE POLIDORI--EYNON, РА 

1 У = RND (1) * 191: HGR : HCOLOR= 7: POKE 
- 16302,0: FOR I = 1 ТО 750:X =X + Y / 2 
- 279 + (X > 279):Х = X - 279 + (X > 
279):Y = Y - X / + 191 + CY < 00:Y = Y 
+ 191 * CY « 00: HPLOT X,Y: HPLOT X,191 - 
Y: HPLOT 279 - X,191 - Y: HPLOT 279 - X,Y 

NEXT I: GOTO 1 


G.BELL 


++ +++ 


0 REM G.BELL--SAN DIEGO, CA 

1 HOME : HGR : POKE - 16304,0: POKE - 
16302,0: POKE - 16297,0: X = 2:Ү = 
X + 2:XL = X - 2:YT = Y = 2:18 = Y 
HCOLOR=3 

2Е = Е + 1:XL = XL + F / 9: HPLOT XR,YT TO 
XL,YT:YB = YB + 2: HPLOT XL,YT TO XL,YB: 
XR = XR + 2: HPLOT XL,YB TO XR,YB:YT = YT 
+ F / 20: HPLOT XR,YB TO XR,YT: GOTO 2 


R = 


2:Х 
+2: 


WHAT? 


ххх 


0 REM DENNIS MARTINEZ--ALBUGUERQGUE, NM 

1 HGR2 :Е = INT €191 * RND €122:D = INT 
(279 +» RND €1)): С = INT (3 + RND €1)) + 
2: FOR B = 0 TO 191 STEP C: HCOLOR= INT 
(6 * RND С1)) + 1 

2 FOR A = 0 TO 270 STEP C: HPLOT D,E TO A, 
B: NEXT : NEXT : CALL 62454: FOR T = 1 TO 
100:2 = PEEK <- 16336): NEXT : GOTO 1 


R.F.MON 


жж 


0 REM R.F.MODULATOR--SAN DIEGO,CA 

1 POKE - 16304,0: POKE - 16302,0: POKE - 
16297,0:X = 140: Y = 95:XR = X:XL = X:YT 
= Y:YB = Y: HCOLOR= 3: ONERR GOTO 1 

2 С = С + 1: HCOLOR= C - INT CC / 6) * 6:xXL 
= XL - 3: HPLOT XR,YT TO XL,YT:YB = YB + 
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2: HPLOT XL,YT TO XL,YB:XR = XR + 3: 
HPLOT XL,YB TO XR,YB:YT = YT - 2: HPLOT 
XR,YB TO XR,YT: GOTO 2 


CURVES 


ххх 


0 
1 


REM JERRY KRAMER, PHILADELPHIA, PA 

HOME : HGR : HCOLOR= 3: DIM XC€21),YC21): 

FORT = 2 TO 21:X СТ» = 78 * SIN €.314 + 

T) + 140:YCTO = 78 * COS C.314 * Т) + 80 

NEXT : FOR T = 2 TO 21: FOR @ = T TO 21: 

HPLOT XCTO,YCTO TO X€Q),YCQ): NEXT : NEXT 
VTAB 24 


TONES 


ж 


0 
1 


REM BRUCE JOHNSON--REARDAN, WA 

READ A,B: POKE A,B: DATA 770,173, 771,48, 
772 ,192,773,136,774,208,775,5,776,206, 
777,1,778,3, 779,240, 780,9, 781 ‚202, 782, 
208, 783,245,784,174,785,0,786 ‚3, 787, 76, 
788,2,789,3,790,96:N = М + 1: IF М < > 21 
THEN 1 

НТАВ 81: INPUT “FREQUENCY (1 TO 255) '*sF: 
INPUT "DURATION (1 TO 255) ";р: POKE 768, 
F: POKE 760,D: CALL 770: PRINT : PRINT 
“ANOTHER TONE CY/N)?": GET X $: IF X$ = 
"Y" THEN 2 


WAVE 


жж 


1 


DIM A$C802:A$-"ABCDEFGHI JKLMNOPQRSTUVWX YZ 
ABCDEF GHI JKLMNOPQRSTUVWX YZABCDEFGHI JKLMNO 
PQRSTUVWXYZ": POKE - 16304,0: POKE -16302 
‚0 

В=В+1: IF B»35 THEN В=1:А=А+1: FOR 1=1 

TO А/9: PRINT " " 3: NEXT I: PRINT ASCB, 
B+10);: GOTO 2 


TWO LINERS 231 


SO-LONG 


+++ a ak + 


1 CALL - 936 
e NEW : REM LAST YEAR'S LOSER... 


THUMP - THUMP 


ихних 


1 HOME : SPEED= 90: PRINT "OH, ARTHUR, TELL 
ME YOU LOVE ME." : FOR X = 1 TO 4: FOR Y 
= 1 TO 4:8 = PEEK € - 16336): NEXT: FOR Y 
= 1 ТО 123: NEXT : FOR Y = 1 TO 4:5 = PEEK 
С - 16336): NEXT ; FOR Y = 1 TO 345 
NEXT : NEXT 

2 VTAB 5: PRINT "YES, JANET... AS SOON AS 
YOU": PRINT “GET OFF OF MY "3: SPEED= 255 
:A$ = "РООТ!"; FOR X = 1 TO LEN CA$): 
FLASH : PRINT MID$ (А$,Х,1); CHR$ (79;: 
NEXT : NORMAL : VTAB 20 


Al 
Al 


Al 
Al 
Al 
A 
1 


AI 


A 
A 


A 
Al 


Al 

Al 

A 
1 


Al 


A 
Al 


A 


A 
A 
Al 
[ 
Al 
І 
АІ 


APPLE COMMANDS 


D DOS 3.3 
P ProDOS"* 


A Applesoft 
1 Integer Basic 


ABS(x) Absolute (positive) value of x 
AND Logical "and" in an IF statement 


p P APPEND / Add data to a sequential text file 


ASC( "A ") ASCII value of a character 
ASC(A$ ) ASCH of string's first character 
АТ See DRAW, XDRAW, HLIN and VLIN. 
ATN(x) Arctangent of x in radians 
AUTO n,m Start auto-line numbering 


ОР BLOAD f Load binary file Г 
ОР BRUN f Load and Run binary program f 
ОР BSAVE f An,Lrm Save data; Address n. Length m 


CALL n Branch to machine language routine at n 
P CAT Display 4(-column ProDOS disk contents 


ОР CATALOG Display disk's contents 
pP CHAIN f Run file f without clearing variables 


СНЕФ(л) Character whose ASCH value is n 
CLEAR Clear all variables and strings 


pP CLOSE f Stop reading or writing a text file 


CLR Clear atl variables and strings 
COLOREN set lo-res color to n (0-15) 
CON Continue an integer program 
CONT Continue an Арріеѕод program 
COS(x ) Cosine of x in radians 

P CREATE / create a directory file 


DATA A$,x, ,2 Strings and values to be READ 
DEF FN А(Х)= (х) Define a function 
DEL п,т Delete program lines n through m 


pP DELETE f Delete file f from a disk 


DIM X(n) Dimension a numerical array 

DIM A$(n) Dimension a string-array or string 
DRAW n AT i, j Draw hi-res shape n at ii 
DSP X Display variable values and line numòers 


END Stop a program with no message isee STOP) 


ОР EXEC f Execute text file f 


EXP(x) e (2.718289) to the xth power 


FLASH se flashing screen output (40-columns) 
P FLUSH иле buffer to disk without closing (ile 

FN see DEF FN 

FOR X=n TO m Let Xen, X-n*1... until Xem 


D FP Clear memory: switch to Applesoft Basic 


P FRE Free all available memory (garbage collection) 
ЕКЕ(0) Amount of free memory available 


GET A$ Wait for one-character user input 
GET X Wait for one-number user input 
GOSUB n Branch to subroutine at line n 
GOSUB X Branch to subroutine at line X 
GOTO n Branch to line n 


GOTO X Branch to line X 
GR View and clear lo-res page 1 


f File Name 


>>>>>>>>> 


DP 
Al 


A$ String 
X Variable 


m,nij Integers 
xyz Real numbers 


HCOLOR=n: Set hi-res color to n (0-7) 

HGR View and clear upper hi-res page 1 

HGR2 View and clear full hi-res page 2 
HIMEM: n Set highest memory address available 
НИМ n,m АТ j Draw a horizontal lo-res line 
HOME Ctear text screen to black 

HPLOT ij Plot a hi-res point 

HPLOT ij TO n,m Draw a hi-res line 


HTAB n Position cursor at horizontal position n 


IF... THEN... Logical "if" true, "then" execute 
IN* n Take input from slot n 

INIT f Erase and format a disk 

INPUT X for A$) Wait for user input 

INPUT “АВС”, A$ (оғ X) Print & wait for input 
INPUT "ABC"; A$ for X) Print & wait for input 
INT Switch to integer Basic; clear memory 
INT(RND(1)* n) Random integer 0 to n-1 
INT(x) Integer value of x 

INVERSE Set black-on-white text output 


ГЕЕТ$(А$ п) Left n characters of a string 
LEN(A$ ) Number of characters in a String 
LET X=Y sex equal to Y ("LET" is optional) 
LIST cise program from beginning 
LIST-n List to tine n 

LIST n- List бот linen 

LIST n-m List tines n through т 

LIST n,m List lines n through m 

LOAD Load a program from tape 

LOAD f Load а file from disk 

LOCK f Protect a file from alteration 
LOG(x) Natura! logarithm of x 

LOMEM: n set start-ofvariables location 


MAN Cancel ALTO 

MAXFILES n Кееле n file buffers (1-16) 

MI D$(A$,n,m) m characters of А5, starting at n 
АЯ n,m) Characters n through m of a string 

m MOD n Remainder of m divided byn 

MON C,LO Display disk functions 


NEW Delete current program from memory 
NEXT Define bottom of a FOR-NEXT loop 
NEXT X Define bottom of a FOR-NEXT loop 
NOMON C,1,0 Cancel MON 

NORMAL Set normal white-on-black text output 
NOT Logical "not" т an IF statement 
NOTRACE Cancel TRACE 


ON X GOSUB n,m... COSUB Xth line number 
ON X GOTO NM Branch to Xth line number 
ONERR GOTO n Branch to line n if error occurs 
OPEN f Begin READ or WRITE of a text file 

OR Logical “оғ” in an IF statement 


A 
Al 


> 


> > > > > > > > > > 


> > 


» 


PDL(n) Value (0-255) of paddle n (0-3) 
PEEK( n) Memory value at location n 
PLOT і, / Plot a lo-res dot 
POKE N,M Set location n to value m 
POP cancel most recent GOSUB 
POS( 0) Horizontal cursor position 

p P POSITION f Locate READ or WRITE in file 

ОР PR#n Send output to slot n 

P PREFIX f Change default directory 

PRINT Skip a text line 
PRINT "АВС" Print characters within quotes 
PRINT X Print value of variable X 


READ A$ Read a DATA String 
READ X Read a DATA value 

ОР READ f initiate reading a disk text file 
RECALL X Retrieve array from tape 
REM Programmer s remark follows 

ОР RENAME /1,f2 Rename a file on disk 
RESTORE se pointer to first DATA element 


P RESTORE f Retrieve strings & variables from file f 


RESUME Continue program where error occurred 
RETURN Branch back to statement after GOSUB 
RIG HT$(A$,n) Last n characters of a string 
RND(0) Repeat last random number 
RND(1) Random number (0 to 0.999999999) 
RND(n)*1 Random integer between 1 and n 
ROTEN set rotation of a shape to n (0-64) 
RUN Execute program from beginning 
RUN n Execute program from line n 

DP RUN f Load and execute program from disk 


SAVE Save program to tape 
ОР SAVE / Save program to disk 

SCALEEN Set scale of DRAW or ХОКАИ 
SC RN(i, Л Lo-res screen color at point ij 
SGN(X) Sign (+1, -1 or 0 of X 
SHLOAD toad Shape table from tape 
SIN(x) Sine of x in radians 
SPC( n) n spaces in a PRINT statement 
SPEED=n character output rate (0-255) 
SQR(x ) Square root of x 
STEP n /ncrement-size in а FOR-NEXT loop 
STOP на! program and print line number 

P STORE / Store variables & strings as file f 
STORE X store array on tape 
STR$(x) String equivalent of value x 


TAB( n) Posilion cursor in a PRINT statement 


Al 
Al 


DP 
A 


A 

DP 
Al 
Al 
A 

DP 


A 


P 


TAB n Position cursor at horizontal position n 
ТАМ(.х) Tangent of x in radians 

TEXT Switch to text mode: cancel windows 
THEN Logical “then” т an IF statement 
TO see FOR and HPLOT. 

TRACE Print tine numbers as executed 


UNLOCK / cancet LOCK 


USR(x) Pass x to a machine subroutine 


VAL(A$) Numeric value of a string 
VERIFY f verify a fle on disk 

VLIN nm АТ: Draw а vertical lo-res line 
VTAB л Move cursor to text line n 


WAIT i,j,k Insert conditional pause 
WRITE f initiate writing to a disk text file 


XDRAW n AT ij DRAW' in opposite color 
XPLOT Unused Applesoft reserved word) 


ud Not equal to 
-f Execute file f. regardless of type 
2 Same as PRINT 


CONTROL AND ESCAPE COMMANDS: 


Al 
DP 
Al 
Al 
Al 
Al 
Al 
Al 
Al 
Al 
Al 


Al 
Al 
Al 
Al 
Al 
Al 
Al 
Al 
Al 


control-C Stop an Applesof or Integer program 
control-D — CHR$4j—DOS command character 
control-G Beep the speaker 

control-H /ей-атош (backspace) 

control-| тар Ше/Ис software-controlled) 
control-) — Down-arrow (line feed) 
control-K Uparrow (Пес software-controlled) 
control-M Carriage return 

control-U  Rightermow (forward space) 
control-X Cancel line being typed 
control-[ Escape (see esc commands below) 


esc-@ Clear text screen; leave no prompt 
esc-A Моге cursor one space right 

esc-B Моге cursor one space {ей 

esc-C Моге cursor one space down 

esc-D Моге cursor one space up 

еѕс- | гог esc-I) Move cursor up: recursive 
eSC-<— (ог esc-J) Move cursor lef; recursive 
QSC-—- (ог esc-K) Move cursor right; recursive 
esc- | (ог esc-M) Move cursor down; recursive 


Micro Software Inc. 


Peeks,Pokes and Pointers 


Apple?Zero-Page 
DECIMAL HEX 


32 Text Window Left-Edge (0-39 / normalisO) ..... $20 
Example: POKE 32, X freezes the left X columns of text. 
Warning: Dont let PEEK(32)*PEEK(33) exceed the screen width 


33 Text Window Width (1-40 or 1-80 / norma! is 40 оғ 80) $21 


Note: POKE 33,33 scrunches listings to remove extra spaces. 


34 Text Window Top-Edge (0-23 / погта! в 0} .... .$22 
35 Text Window Bottom (1-24 / normat is 24)....... $23 
36 Horizontal Cursor-Position (0-39 ........... $24 


Examples: t! РЕЕК(38)-Х. then the cursor is in column Х+1. 
POKE 36,X puts the cursor in column X+1 (useful with 80-Cotumns, 
tor positioning the cursor beyond the 40-cotumn limit of НТАВ). 
Note: POKE 1403,X works simitarly—and more predictably. 


37 Vertical Cursor-Position (0-23) ....... desi 25 
Examples: If PEEK(37)- Y. then the cursor is on text line Y+t. 

43 Boot Slot #16 (after boot) ............... $2B 

44 Lo-Res Line End-Point ................. $2C 

48 Lo-Res COLOR #17 .................... $30 

50 Text Output Рогта!..................... $32 


POKE 50, 63-INVERSE, POKE 50, 255-NORMAL. 
POKE 50, 127- FLASH (for ASCH 64-95). 


51 Prompt-Character ...................... $33 
Note: POKE 51,0: GOTO блея will prevent a false "Not Direct Com- 
mand” message caused by an immediate GOTO line command. 

78-79 Random-Number Ре ............ $4E. AF 


103-104 Start of Applesoft Program ....... $67.68 
To Load a program at a non-standard location LOC— 
POKE LOC-1, 0: POKE 103, LOC-INT(LOC/256)* 256: 
POKE 104, INT(LOC/256) Then LOAD PROGRAM 
Note: FP (DOS 3.3 only) sets start-of-program to normal 2049 ($801). 
105-106 (ОМЕМ....................... $69.6A 
Note: LOMEM is the Start of Variabie-Space, equivalent to End-of- 
Program (approx.) unless changed with the LOMEM: command. 


107-108 Start of Array-Space............ $6B.6C 
109-110 End of Array-Space ............. $6D.6E 
111-112 Start of String-Storage ........... $6F.70 
115-116 HIMEM ....................... $73.74 


Note: HIMEM-1 is the highest address available for use by an Applesoft 
program. May be changed with the HIMEM: command. 


117-118 Line-Number Being Executed ..... $75.76 
119-120 Line-No. Where Program Stopped $77.78 
121-122 Address of Line Executing ........ $79.7A 
123-124 Current DATA Line-Number ..... $7B.7C 
125-126 Next DATA Address ............. $70.7Е 
127-128 INPUT or DATA Address ......... $72.80 
129-130 Last-Used Variable Name ........ $81.82 
131-132 Last-Used-Variable Address. ...... $83.84 
175-176 End of Applesoft Program ....... ФАҒ.ВО 
214 ВОИМҒаа........................... $06 
Example: POKE 214, 255 makes any command RUN a program 
216 ONERR Flag ........................ $D8 
Example: POKE 216, 0 cancets the ONERR function 
218-219 Line-Number of ONERR Eror ...$DA.DB 
220-221 ONERR Error Address ......... SDC.DD 
222 ONERR Eror Соде................... $DE 


DOS 3.3 and PRODOS 
1: Language Not Available' 
2 or V: Range Error 
3: No Device Connected? 
4: Write-Protected 


APPLESOFT 
0. ?Next Without For 
16: ?Syntax Error (FP) 
22: ?Return Without Gosub 
42: ?Out of Data 


5: End of Data 53: ?lllegal Quantity 
6: File’ or Path? Not Found 69: ?Overfiow 
7: Volume Mismatch' 77: ?Out of Memory 
8: VO Error 90: ?Undefd сеце 
9: Orsk Full 107: ?Bad Subscri»t 
10 File Locked 120: ?Redim'd Array 


11: Syntax Error! or invalid Option? 133: ?Division by Zero 
12. No Buffers Available 163: ?Type Mismatch 


13: Рие Type Mismatch 
14: Program Too Large 
15: Not Direct Command 


176: ?String Too Long 
191: ?Formuta Too Complex 
224: ?Undef'd Function 


17; Directory Full? 254; ?Re-Enter 
18: File Not Open? 255: (control-C Interrupt) 
19: Dupticate File Name? 
20: File Busy? 100$ 33 only 
21: File(s) Stil Open? ?ProDOS only 
224-225 X of Last HPLOT (0-279) ....... $EO.E1 
226 Y of Last HPLOT (0-191) ............. $E2 
228 HCOLOR Code .................. $E4 
0:0, 42-1, 65:2, 12723, 128-4, 170-5, 213-6, 25557 
230 Hi-Res Plotting Page............... $E6 
POKE 230,32 selects Баре 1. POKE 230,96 selects Page 3. 
РОКЕ 230.64 selects Page 2. 
234 ЅСАШЕ.......................... ЗЕ? 
Note: SCALE-Q is equivalent to a SCALE ol 256. 
232-233 Shape Table Start Address ....%Е8.Е9 
234 Hi-Res Colilsion-Check ............ $ 


EA 
Example: XDRAW a shape. ІІ PEEK(234)-0 then the shape 
Started at a non-black hi-res point. 


241 SPEED .................... $F1 
Note: PEEK(241) is 256 minus the current SPEED. 
243 FLASH Mask ............... $F3 
249 ROT ...................... $F9 
Display Switches 
DECIMAL (with negative equivalent) HEX 
49232 (-16хм) Graphics ........ $С050 
49233 (өз) Text ............ $С051 
49234 (-16302) Full-Graphics ....$C052 
49235 (-16301) Split-Screen ..... $C053 
49236 (-16300) Page One ....... $C054 
49237 (-162%) Page Two ....... $С055 
49238 (-16298) Lo-Res .......... $С056 
49239 (-16297) Hi-Res .......... $C057 


Note: Activate display switches by Poking each location. 
Example: POKE 49232,0 switches to Graphics display 


Keyboard, etc. 


DECIMAL (with negative equivalent) HEX 


49152 (-163a4) Read Keyboard. . . $CO00 


49168 (-1өза) Clear Keyboard ..$C010 

Example: 10 KEY:PEEK(49152) IF KEY<128 THEN 10 
20 POKE 49169, 0 

30 PRINT "KEY: 


49200 (-16336) Click Speaker . . . 


“; CHRS(KEY-128) 


. $0030 


Example: FOR A:1 ТО 99: BUZZ-PEEK(49200) NEXT 


49249 (-16287) Button #0........ $C061 
Өйе-0 Button or Open (left) Appie кеу” 
49250 (-16286) Button #1........ $С062 
Paddle-1 Button or Closed (пом) Apple кеу” 
49251 (-162as) Button #2........ $C063 


*Example: If PEEK(49249+P) is greater than 127, then 
Paddle Button «P is being pressed—or it's not connected 


DOS 3.3 Pokes 


(assume DOS loaded in main memory) 


POKE 40193, РЕЕК(40193)-№ CALL 42964 
Moves DOS buffers down N*256 bytes. 
POKE 44452,N+1: POKE 44605,N 
Allows N file names before catalog pause. 


POKE 44460,88: POKE 44461,252 
Clears screen before catalog. 
POKE 44505,234: POKE 44506,234 
Exposes deleted file names in catalog. 
POKE 44596, 234: POKE 44597, 234: POKE 
44598, 234 Cancels catalog pause. 
POKE 49107,234: POKE 49108,234: POKE 
49109, 234 Prevents language card reload. 
POKE 49384,0 Stops drive motor. 
POKE 49385,0 Starts drive motor. 


Notes 


Apple's main memory consists of 65,536 bytes, numbered 

zero to 65535. Every byte has a value in the range 0-255 

в You may Peek (look at) the value in byte number-B with 
the conmand— PRINT PEEK(B) 

B You can usually Poke a new value-V into byte-B with the 
command— POKE B.V 

Values higher than 255 must be stored in two bytes: 

B To took at the value in consecutive bytes B1-B2— 
PRINT PEEK(B1}+PEEK(B2)*256 

B To Poke a new value V (0-65535) into bytes B1-B2— 
POKE B1, У-ІМТ(У/256)%256 
and POKE B2, (NT(V/256) 

Note: Since almost any memory location can be Peeked or 

Poked, program listings can reveal thousands of Peeks and 

Pokes notlisted on this chart. Pokes are often used to wnte 

machine-language routines that may be activated with the 

CALL command — те possibilities are infinite. 

Let A-PEEK(64435) and B-PEEK(64448). 

Н A=6 and В=0 then Apple ІК. 

tf A=6 and (B>223 AND B< 240) then Apple Пе. 

tf A<>6 then Apple ll or ІН. 


Page-3 DOS Vectors 


DECIMAL HEX 


976-978 Re-enter-DOS Vector ....... $300.302 


1010-1012 Reset Vector ............... $3F2.3F4 
mple: POKE 1012, 0 makes Reset boo 
(POKE 1012,56 to 2. norma! Reset ое ) 


1013-1015 Ат Vector .......... $3F5.3F7 
Examples: POKE 1014, па POKE 1015, 214 makes "87 LIST. 
POKE 1014, 110: POKE 1015, 165 makes "&' CATALOG. 

POKE 1014, 18: POKE 1015, 217 makes "&' RUN. 


1016-1018 Control-Y Vector............ $3F8.3FA 

DOS 3.3 Locations 

DECIMAL HEX 

(All values assume DOS is loaded in main memory.) 

42350 Сәізіов-Ноийпе.................. $A56E 
Example: CALL 42350 catalogs a disk. 

40514 Greeting Program Run-Flag ........ $9E42 
POKE 40514; rd and INIT a disk. When booted, DOS will attempt to 
BRUN the greeting program. POKE 4051420 tor EXEC 

43140-43271 Commands ............ %А884.А907 

43378-43582 Error Messages ........ $A972.AA3E 

43616-43617 Last Bload Length ..... $AA60.AA61 

43634-43635 Last Bload Start ....... $AA72.AA73 


43624 Drive-Number $ 
Example: POKE 43624, D changes disk input/output to Drive О. 


43626 Slot-Number $ 
Example: POKE 43626, S changes disk input/output to Slot S. 


43698 Control-D Command Character ..... $ААВ2 


44033 Catalog Track Number ............ $ACO!1 

45991-45998 Fite-Type Codes ....... $B3A7.B3AE 

45999-46010 Disk Volume Heading — $B3AF.B3BA 

46017 Disk Volume Number ............. $B3C1 
тм = 

ProDOS Locations 

DECIMAL HEX 


944 Slot/Drive Уаше.................. $BF30 
Н PEEK(48944) is greater than 127 then Drive 2, otherwise Drive 1. 


47313-47422 Commands.......... $8801.В93Е 
48840-48841 Last Bload Length .... $BEC8.BEC9 
48825-48826 Last Bload Start ...... $ВЕВ9.ВЕВА 
Useful Calls 

DECIMAL (add 65536 tor positive equivalent) HEX 
CALL-25153 Reconnect DOS 33.............. $9DBF 
CALL-3100 Reveal hi-res page 1 .............. $F3E4 
CALL-3086 Clear hi-res screen to black ........ Nu 


CALL-3082 Clear hi-res to last color Hplotted . . 
Example: HGR2: HCOLOR-5. HPLOT 0.0: CALL-3082 

CALL-2613 Hi-res coordinates to 2его-Рабе..... $F5CB 
Example. The X and Y starting coordinates of the next shape table 
DRAW or XDRAW may be determined with a CALL-2613. Then 
X:PEEK(224)- PEEK(225)*256 and Y-PEEK(226). 


CALL-1438 Рвгікіо-Веве!.................... $FA62 
CALL-1370 Boot ........................... $РААб 
CALL-1321 Display all registers ............... $FAD7 
CALL-1184 Clear screen and print "Apple..." ... 5ҒВ60 
CALL-1036 Move cursor ПОМЇ................. $FBF4 
CALL-1008 Move cursor left.................. $FC10 
CALL-998 Move Cursor up .................. $FC1A 
CALL-958 Clear text from cursor to bottom .... $FC42 
CALL-922 Move cursor down................ $FC66 
CALL-868 Clear text-ine from cursor to right .. . $FC9C 
CALL-756 Walt for any keypress ............. $FDOC 
CALL-678 Walt for a Retum keypress ......... $FDSA 
CALL-657 Better Input commas/colons о.К..... $FDeF 


10 PRINT "NAME (LAST, FIAST):";: CALL -657 
20 А5х"": FOR X=512 TO 767: ІР PEEK(X)<> 141 
THEN А$=А$+ CHRS(PEEK(X)-128): NEXT X 
CALL-468 Memory move ................... $FE2C 
A Basic memory move: OS & OE are the Old-location Start 8 End, and 
NS is the New Start. GOSUB 5000 to execute the move— 
5000 N-OS: LOC=60: GOSUB 5020: 
N-OE: LOC-62: GOSUB 5020: 
N=NS: LOC-66: GOSUB 5020 
5010 POKE 768, 160: POKE 769. 0: POKE 770. 76: 
POKE 771, 44: POKE 772, 254: CALL 768: RETURN 
5020 POKE LOC, N-INT(N/256) *256: 
POKE ОС», INT(N/256): RETURN 


GALL Disassembler .................... $FE61 
оке start address at locations 58-59 before Сай. 
CALL. Ring bell and print ERR" .......... $FF20 
CALL-198 Ring Бей ........................ $FF3A 
CALL-151 Enter топКог.................... $FF69 
CALL-144 Scan Input імбег................. $FF70 


This examplo uses CALL -144 to execute a machine 
tanguage routine from Basic (will not work in a subroutine): 
100 A$-"300: AS C1 20 ED FD 18 69 01 C9 OB DO F6 
60 3006 O823G" 
110 FOR X=1 TO LEN(A$); POKE 511*X, 
ASC(MIDS(AS X, 1))*128: NEXT 
120 POKE 72, 0: CALL -144 
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8p 160 $40 


130 $82 

131 $83 

132 $84 

133 $85 

134 $86 

(Bott) 135 $87 
(-) 8 $00 ctri-H 136 $88 
(Teb) 9 $09 ей 137 $89 
(4) 10 ФА ctri-J 138 $8A 
(4) 1 $08 ctri-K 139 588 
12 $0C ctri-L. 140 $8С 
(Return) 13 $00 ctri-M 141 $80 
14 SOE ctri-N 142 58Е 

15 $OF ctri-O 143 $82 
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16 $10 Ctri-P 144 $90 
37 $1: ctri-Q 145 $91 
18 $12 СІП-Й 146 $92 
19 $13 ctri-S 147 593 
20 $14 сій-Т 145 $94 
(--) 21 $15 ctri-U 149 595 
22 $16 ctri-V 150 595 
23 $17 ctri-W 151 $97 
24 518 ctri-X 152 598 
25 519 ctri-Y 153 599 
26 $1A Ctri-Z 154 $9A 
(Esc) 27 $18 ctri-{ 155 $96 
28 $1C ctri-\ 156 $9C 
29 $10 ctri-]. 157 590 
30 $1Е ctrl-^ 158 59Е 
31 StF etri- 159 SOF 


112 $70 
113 $71 
114 $72 
115 $73 
116 $74 
117 $75 
118 $76 
119 $77 
120 $78 
121 $79 
122 $7A 
123 $78 
124 $7С 
125 $70 | 253 $FD 
126 $7E - 254 $FE 
127 З7Е O 255 $FF 
(Ооюшю) 
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$20 
$21 
$22 
$23 
$24 
$25 
$26 
$27 
$28 
$29 
$2А 
$28 
$2С 
$20 
$2Е 
$2F 
$30 
$31 
$32 
$33 
$34 
$35 
$36 
$37 
$38 
$39 
SA 
$38 
sc 
$3D 
SSE 
$3F 


ВОВЕ $55 
шопо огаш уг Lxx 


INDEX 


Apple Almanac, The, 209 

Apple Mechanic, 165 

Applesoft, 21, 189 
backups, 44 
BASIC vs. Integer, 131-132 
characters, hidden, 48 
CONTROL, 43, 181-182 
cursor, inverse, 87 
DATA statement, improper, 37 
delay loops, 57 
error messages, 50, 51, 92 
error silencer, 50 
Global Program Line Editor, 38, 

40-42, 155, 177 

graphics program, 118-119 
hex conversion, 44 
line numbers, 59-60 
memory locations, 62 
MOD program, 47—48 
numbers, 55-56, 65, 69, 95, 96 
parsing, 53, 74—75, 201 
program deletion, 47 
program line deletion, 40 
question mark, 44—45, 65 
quotes, 35-36, 65, 86 


slot search, 53-54 

text window size, 43 

tips, 35-67 

tokens, 26-28, 49, 51-52, 80. See 
also specific tokens 

user options, 43 

vocabulary, 46 


Backscroll, 199 
Backslash, 15-16 
Bank Street Writer, 160 
BASIC 
addresses, 2-3, 28 
binary conversion, 136-137 
Integer, 47, 59, 86, 127-132 
Beneath Apple DOS, 29 
Binary files, 160 
Bracket 
left, 15-16 
right, 16 
Byte Zap, 29 
Bytes, 29, 30-31, 33, 71, 93, 135, 
199-200 


CALL, 44, 141-142, 143, 198, 199 


237 


238 


Cassette player. See Tape 
Catalog, 148-152, 169-170, 175-187 
binary files, 160 
DOS 3.3, 175, 176-179, 180-181 
file naming, 154—156, 158, 171, 
172, 176, 180, 182-184, 186-187 
formatting, 185-186 
hyphen command, 170 
name omission, 179-180 
ProDOS, 175, 181 
VERIFY file, 169 
Characters 
chart, 204—205 
flashing, 128-129 
hidden, 48 
inverse 19, 85-86, 88—89, 193, 
202—203 
lowercase equivalents, 90, 155-156 
See also Keyboard 
Circles, 144 
Cleaning, 194—195 
Code breaking, 102—105 
Colon, 200 
Colors, 109-111, 115, 117-118, 193 
Columns, number of, 203, 212 
Commands 
hyphen, 170 
machine language, 137-141 
multiple, 159 
printer, 214 
See also specific commands 
Commas, avoiding, 158 
Computer types, 188—192, 201 
CONTROL, 43, 82, 179, 180, 
181-182 
Cursor 
eliminating, 45—46 
inverse, 87 


DATA statement 
improper, 37 
item count, 56 
Data storage 
Byte Zap, 29 
components, 29-30 


INDEX 


Decimals, 29, 44, 55—56, 65, 142, 
199—200 
DEL, 64 
Disk 
booting, 162-165, 171, 200 
cataloging, 169-170 
DOS type, 152-155 
Extra K, 173 
inserting, 4—5, 157 
labeling, 4, 153 
puzzle program, 205-206 
RAM, 172-173 
removing, 166 
sleeves, 4—5, 7, 8 
storage, 7, 8, 12, 167, 173 
strength, 166 
System Utilities, 152-154 
two-sided, 8, 168—169 
See also DOS Boss; System 
Master, DOS 3.3 
Disk drive 
head cleaning, 194 
in-use light, 167 
labeling, 1 
multiple, 166 
placement, 3, 14 
speed, 196-197 
squeaky, 195 
Disk Operating System. See DOS 
DOS (Disk Operating System), 
144—174 
changing, 146-152, 162, 167 
destroying, 34 
disconnection, 171 
disk type, 152-155 
DOS Boss, 146-147, 148, 149, 
165 
error messages, 160-161 
POKES, 17, 34, 147-152 
ProDOS, 146, 153, 154-155, 160, 
170-174, 175, 184, 190 
program protection, 98—100 
3.3 System Master, 152-153, 165 
writing, 30 
DOS Boss, 146-147, 148, 149, 165 


INDEX 


Drive. See Disk drive 
Dvorak keyboard, 20 


Editing 
cursor location, 19 
Global Program Line Editor, 38, 
40-42, 155, 177 
text window, 43 
word breaks, 40—41 
Electricity. See Power, supply 
END, 202 
Error 
messages, 50, 51, 92, 151—152, 
160-161, 201, 202 
silencer, 50 
tokens, 51—52 
Extra K, 173 


File. See Catalog 
FLASH, 128-129, 156 
FORTH, 48 


Games and puzzles, programs for, 
205-208, 212 
Garbage removal, 25-26, 79 
GET, 60-62 
Global Program Line Editor (GPLE), 
38, 40-42, 155, 177 
GOSUB, 200, 201 
GOTO, 67, 201 
GPLE. See Global Program Line Editor 
Graphics, 109-126, 213 
BRUN, 143 
circles, 114 
colors, 109-111, 115, 117-118 
shape tables, 122-125 


Hardware maintenance, 193—197 
HELLO, deleting, 158 
Hex, 29, 31, 44 
codes, 140-141 
converter, 142, 199—200 
equivalents, 32 


IF, 68—69 
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INIT, inverse, 159 
INPUT, 57-59 
Integer BASIC, 47, 59, 86, 127-132, 
188 
FLASH, 128-129 
mini-assembler, 134—135 
printing characters, 129—130 
speed, 127-128 
variables as line numbers, 131 
vs. Applesoft, 131-32 


Keyboard 
brackets, 15-16 
character names, 16-17 
directional, 18-19 
Dvorak, 20 
inverse lowercase, 19 
K and D, marking, 13, 16 
keyless characters, 15—16 
numbers, 15 
protection, 9-10 
QWERTY, 20 
RESET, 10-11, 17-18 
Key-Cat, 165 


Labeling 
disk, 4, 153 
disk drive, 1 
mouse, 2 
paddles, 1—2 
**permanent,'' 3-4 
slot, 1 
Languages, 48, 57 
binary to BASIC, 136-137 
commands, 137-141 
entering program, 133-134 
See also Applesoft; BASIC; Integer 
BASIC 
Line locator, 80 
LIST, 73-82, 136, 200 
alignment, 75 
break, 81 
page advance, 82 
split, 78 
See also Catalog; REM statements 
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Memory, 21—34 
addresses, formula for finding, 91 
bytes, 32—33 
clearing, 72 
conserving, 70-72, 93 
Extra K, 173 
locations as negative numbers, 62 
moving, 21-22, 23, 157 
RAM, 33, 172-173, 188-189 
ROM, 33, 188-189 
screen filler, 22 
Mini-assembler, 134—135 
Minuses, 200 
MOD, 47-48 
Monitor 
mounting, 9, 13 
Reset to, 18 
type, 5 
Mouse, 2 


NEXT, 201 
Nibble, 154 
Number systems. See Decimals; Hex 


ONERR, 50-52, 201 


Paddle 
graphics setting, 112 
labeling, 1-2 
replacing, 2, 3 

Parsing, 53, 74—75, 201 

PEEK, 34, 66, 80, 88-89, 90, 198 

Plug. See Power, supply 

POKE, 34, 53, 66, 90, 198, 201, 
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DOS, 17, 34, 147-152 
garbage removal, 25-26 
inverse characters, 19, 88-89 
invisible catalog, 178 
program deletion, 47 
program protection, 100-102 
Reset programming, 17 
tokens, 28 

POP, 62-63 

Power 


INDEX 


failure, 166 
supply, 11, 191 
Prefixes, 172 
Printer, 203 
commands, 214 
connecting, 201 
stand, 6 
Program list, stand for, 6-7 
ProDOS, 146, 153, 154-155, 160, 
170-174, 175, 184, 190 
Programs 
binary to BASIC, 136-137 
Byte Zap, 29 
character chart, 204—205 
circles, 114 
code breaking, 102-105 
colors, 117-118 
cursor, ending without, 45-46 
deleting lines, 40 
deletion, 47, 64 
description, 23-25 
games and puzzles, 205-208, 212 
garbage, 25-26, 79 
graphics, 111—114, 115, 116, 
118-126 
HELLO, 158 
Integer, 127-130 
inverse characters, 19, 85-86 
machine language, 133-134, 
141-142 
Master Create, 162, 165 
memory move, 21-22, 157 
MOD, 47-48 
printing, 47 
protecting, 10-11, 54, 97-105 
question mark deletion, 44—45 
Reset key, 17-18 
screen filler, 22 
size, 30 
sounds, 106—108 
speed, 69—70 
token viewer, 28, 49 
two-line, 216-231 
See also Applesoft; DOS; Integer 
BASIC 
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Punctuation. See specific punctuation 
marks 
Puzzles. See Games and puzzles 


Question mark, 44—45, 65 

Quotation marks, 35—36, 65, 74—75, 
86, 88, 201 

QWERTY keyboard, 20 


Rack, disk, 7 
Random Access Memory (RAM), 33, 
172-173, 188-189 
READ, 83-84 
Read Only Memory (ROM), 33, 
188-189 
REM statements, 38—40, 71, 73-76, 
77, 78, 200, 201 
RESET 
disk access during, 159 
monitor, return to, 18 
programming, 17-18 
protector, 10-11 
ROM. See Read Only Memory 


SAVE, 54 
Screen clearing, 200 
Sectors, 30 
Shape tables, 122-125 
Slot, 1, 53-54 
Software 
storage, 12 
See also Applesoft; BASIC; Integer 
BASIC 
Sounds, 106-108 
beep, 107, 143, 151-152 
chirp, 108 
click, 106-107, 159 
metronome, 106 
moo, 108 
Space 


avoiding, 158 
erasers, 2 
Speaker 
switch, 12-13 
volume, 13 
Stands 
printer, 6 
program list, 6-7 
STOP, 45 
Storage 
disk, 7, 8, 12, 167, 173 
software, 12 
See also Data storage 
System Master, DOS 3.3, 152-153, 
165 
Master Create program, 162, 165 
Systems Utilities, 152-154 


Tape, 158-159, 188 

Text 
column position, 89-90 
help page, 84—85 
inverse titles, 86-87 
saving, 92 
screen format, 89 
tips, 83-96 
vertical columns, 83 
window, 43 

Tokens, 26-28, 49, 51-52, 80 
See also specific tokens 

Tracks, 29-30 


Underscore, 15-16 
User options, 43 


VERIFY, 169 
Word breaks, 40—41 


Write-protect tabs, 168 
Writing. See Editing; Text 
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BILL SANDERS bought his first Apple in 1980 for simulation games. That 
lasted until he discovered programming. Under the stuffy title William B. 
Sanders, Ph.D., Bill has written about 25 books, roughly half of them on 
computers. The Elementary Apple, The Apple Almanac and The Apple 
Macintosh Primer are the best known among Apple users. As founder and 
editor of The Sandy Apple Press, Bill introduced “Баа taste’’ to computer 
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TIPS, TRICKS, 
ANDPROGRAMMING SAVVY 


Programming tips and tricks are timesavers that make a programmer's life 
much easier. The Big Tip Book for the Apple II Series contains some of 
the most popular and useful shortcuts ever designed for all Apple Il series 
computers—tricks and tips which have been developed and used by other 
users and programmers. The programming strategies in this book have 
been collected with wit and wisdom by The Beagle Brothers, well- 
known Apple software developers. 


While most of the book covers Applesoft programming, this book also pro- 
vides tips for dealing with hardware, disks and DOS, machine language, 
and every other facet of the Apple II computers. You'll also discover the 
useful two-liners presented in this book, which are the most compact 
source codes available anywhere for the Apple II computers. 


Newcomers and old-timers alike will appreciate the breadth of coverage 
presented in this book, which includes: 


The Keyboard—Locating and using the missing keys on old 

Apple machines 

Memory Structure—Moving memory locations for efficiency 
Applesoft Tips— Applying others’ programming experiences to tasks 
Protection—Save-protecting your programs 

Graphics—Exploring uncharted colors 

Machine Language—-Making sense out of machine code 

Disks and DOS— Getting control of your computer 

Two-Liners— Programming at its best 

All these and much, much more 
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